home *** CD-ROM | disk | FTP | other *** search
/ Super Shareware Collection / Super Shareware Collection.iso / os_2 / clisp.zip / EDITOR.FAS < prev    next >
Text File  |  1994-02-05  |  102KB  |  1,773 lines

  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 12. LISP:NIL 290893.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "LISP")
  3. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D5 37 01 30 D6 19 01) (EDITOR ED *USE-ED*))
  4. #Y(#:TOP-LEVEL-FORM-3 #17Y(00 00 00 00 00 01 D5 67 01 37 03 30 B7 0F 01 19 01) EDITOR *FEATURES*)
  5. #Y(#:TOP-LEVEL-FORM-4 #17Y(00 00 00 00 00 01 D5 67 01 37 03 30 B7 0F 01 19 01) DOSE *FEATURES*)
  6. #Y(#:TOP-LEVEL-FORM-5 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "EDITOR")
  7. #Y(#:TOP-LEVEL-FORM-6 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *WINDOW*) *WINDOW*)
  8. #Y(#:TOP-LEVEL-FORM-7 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL GLOBAL-SCREEN-HEIGHT)
  9.    GLOBAL-SCREEN-HEIGHT
  10.   )
  11. #Y(#:TOP-LEVEL-FORM-8 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL GLOBAL-SCREEN-WIDTH)
  12.    GLOBAL-SCREEN-WIDTH
  13.   )
  14. #Y(#:TOP-LEVEL-FORM-9 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL BLANKS) BLANKS)
  15. #Y(#:TOP-LEVEL-FORM-10 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) WITH-WINDOW
  16.    SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  17.    #Y(WITH-WINDOW
  18.       #28Y(01 00 01 00 00 08 91 02 D5 D6 D7 D8 D9 DA D5 DB A0 78 02 77 04 C7 78 02 5C 03 19 04) LET
  19.       ((*WINDOW* (SCREEN:MAKE-WINDOW))) UNWIND-PROTECT MULTIPLE-VALUE-BIND
  20.       (GLOBAL-SCREEN-HEIGHT GLOBAL-SCREEN-WIDTH) (SCREEN:WINDOW-SIZE *WINDOW*)
  21.       ((BLANKS (MAKE-STRING GLOBAL-SCREEN-WIDTH :INITIAL-ELEMENT #\Space))) ((CLOSE *WINDOW*))
  22.   )  )
  23. #Y(#:TOP-LEVEL-FORM-11 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) BELL
  24.    SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  25.    #Y(BELL #22Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2E 03 C2 19 03 A9 2E 01 19 03) 1.
  26.       SYSTEM::MACRO-CALL-ERROR (WRITE-CHAR #\Bell *TERMINAL-IO*)
  27.   )  )
  28. #Y(#:TOP-LEVEL-FORM-12 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01)
  29.    SCREEN-SET-CURSOR SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  30.    #Y(SCREEN-SET-CURSOR
  31.       #34Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2C 0F 9A 57 74 9B 57 57 74 D7 D8 AA AA 5C 04 19 05
  32.            A9 2E 01 19 03
  33.           )
  34.       3. SYSTEM::MACRO-CALL-ERROR SCREEN:SET-WINDOW-CURSOR-POSITION *WINDOW*
  35.   )  )
  36. #Y(#:TOP-LEVEL-FORM-13 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) SCREEN-HOME
  37.    SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  38.    #Y(SCREEN-HOME #22Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2E 03 C2 19 03 A9 2E 01 19 03) 1.
  39.       SYSTEM::MACRO-CALL-ERROR (SCREEN-SET-CURSOR 0. 0.)
  40.   )  )
  41. #Y(#:TOP-LEVEL-FORM-14 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01)
  42.    SCREEN-CLEAR-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  43.    #Y(SCREEN-CLEAR-SCREEN #22Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2E 03 C2 19 03 A9 2E 01 19 03)
  44.       1. SYSTEM::MACRO-CALL-ERROR (SCREEN:CLEAR-WINDOW *WINDOW*)
  45.   )  )
  46. #Y(#:TOP-LEVEL-FORM-15 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01)
  47.    SCREEN-CLEAR-END-OF-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  48.    #Y(SCREEN-CLEAR-END-OF-SCREEN
  49.       #22Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2E 03 C2 19 03 A9 2E 01 19 03) 1.
  50.       SYSTEM::MACRO-CALL-ERROR (SCREEN:CLEAR-WINDOW-TO-EOT *WINDOW*)
  51.   )  )
  52. #Y(#:TOP-LEVEL-FORM-16 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01)
  53.    SCREEN-CLEAR-END-OF-LINE SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  54.    #Y(SCREEN-CLEAR-END-OF-LINE
  55.       #22Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2E 03 C2 19 03 A9 2E 01 19 03) 1.
  56.       SYSTEM::MACRO-CALL-ERROR (SCREEN:CLEAR-WINDOW-TO-EOL *WINDOW*)
  57.   )  )
  58. #Y(#:TOP-LEVEL-FORM-17 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01)
  59.    SCREEN-INSERT-LINE SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  60.    #Y(SCREEN-INSERT-LINE #22Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2E 03 C2 19 03 A9 2E 01 19 03) 1.
  61.       SYSTEM::MACRO-CALL-ERROR (SCREEN:INSERT-WINDOW-LINE *WINDOW*)
  62.   )  )
  63. #Y(#:TOP-LEVEL-FORM-18 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01)
  64.    SCREEN-DELETE-LINE SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  65.    #Y(SCREEN-DELETE-LINE #22Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2E 03 C2 19 03 A9 2E 01 19 03) 1.
  66.       SYSTEM::MACRO-CALL-ERROR (SCREEN:DELETE-WINDOW-LINE *WINDOW*)
  67.   )  )
  68. #Y(#:TOP-LEVEL-FORM-19 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) SCREEN-CURSOR-ON
  69.    SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  70.    #Y(SCREEN-CURSOR-ON #22Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2E 03 C2 19 03 A9 2E 01 19 03) 1.
  71.       SYSTEM::MACRO-CALL-ERROR (SCREEN:WINDOW-CURSOR-ON *WINDOW*)
  72.   )  )
  73. #Y(#:TOP-LEVEL-FORM-20 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01)
  74.    SCREEN-CURSOR-OFF SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  75.    #Y(SCREEN-CURSOR-OFF #22Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2E 03 C2 19 03 A9 2E 01 19 03) 1.
  76.       SYSTEM::MACRO-CALL-ERROR (SCREEN:WINDOW-CURSOR-OFF *WINDOW*)
  77.   )  )
  78. #Y(#:TOP-LEVEL-FORM-21 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01)
  79.    SCREEN-REVERSE-ON SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  80.    #Y(SCREEN-REVERSE-ON #22Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2E 03 C2 19 03 A9 2E 01 19 03) 1.
  81.       SYSTEM::MACRO-CALL-ERROR (SCREEN:HIGHLIGHT-ON *WINDOW*)
  82.   )  )
  83. #Y(#:TOP-LEVEL-FORM-22 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01)
  84.    SCREEN-REVERSE-OFF SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  85.    #Y(SCREEN-REVERSE-OFF #22Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2E 03 C2 19 03 A9 2E 01 19 03) 1.
  86.       SYSTEM::MACRO-CALL-ERROR (SCREEN:HIGHLIGHT-OFF *WINDOW*)
  87.   )  )
  88. #Y(#:TOP-LEVEL-FORM-23 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) GET-NEW-LINE
  89.    SYSTEM::REMOVE-OLD-DEFINITIONS
  90.    #Y(GET-NEW-LINE #18Y(01 00 00 00 00 02 A8 60 37 06 C0 FB A1 F8 30 19 19 02) STRING-CHAR)
  91.   )
  92. #Y(#:TOP-LEVEL-FORM-24 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) MAKE-EMPTY-TEXT
  93.    SYSTEM::REMOVE-OLD-DEFINITIONS
  94.    #Y(MAKE-EMPTY-TEXT
  95.       #29Y(00 00 01 00 00 07 3A 01 03 0E 00 F7 A8 60 37 06 C1 F8 6D 19 D6 6B 02 A8 30 16 15 19 02)
  96.       GLOBAL-SCREEN-HEIGHT 0. GET-NEW-LINE
  97.   )  )
  98. #Y(#:TOP-LEVEL-FORM-25 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) MAKE-MARK
  99.    SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  100.    #Y(MAKE-MARK
  101.       #33Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2C 0E 9A 57 74 9B 57 57 74 D7 A9 A9 5C 03 19 05 A9
  102.            2E 01 19 03
  103.           )
  104.       3. SYSTEM::MACRO-CALL-ERROR CONS
  105.   )  )
  106. #Y(#:TOP-LEVEL-FORM-26 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) MARK-LIN
  107.    SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  108.    #Y(MARK-LIN
  109.       #28Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2C 09 9A 57 74 D7 A8 5C 02 19 04 A9 2E 01 19 03) 2.
  110.       SYSTEM::MACRO-CALL-ERROR CAR
  111.   )  )
  112. #Y(#:TOP-LEVEL-FORM-27 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) MARK-COL
  113.    SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  114.    #Y(MARK-COL
  115.       #28Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2C 09 9A 57 74 D7 A8 5C 02 19 04 A9 2E 01 19 03) 2.
  116.       SYSTEM::MACRO-CALL-ERROR CDR
  117.   )  )
  118. #Y(#:TOP-LEVEL-FORM-28
  119.    #681Y(00 00 00 00 00 01 00 2A 04 C0 0B 00 00 C1 0B 00 01 C2 0B 00 02 C3 0B 00 03 D9 2E 05 D9 A8
  120.          69 06 01 31 74 DC DD DE 60 D9 DF 64 06 00 64 07 01 64 08 02 64 09 03 6F 08 00 31 7A 16 01
  121.          DC 2E 0B E1 30 5B E2 2E 05 E2 E3 E4 31 7A E2 E5 31 74 E6 30 5B E7 30 5B E8 2E 05 E8 E3 E9
  122.          31 7A E8 EA 31 74 EB 30 5B EC 30 5B ED 2E 05 ED E3 EE 31 7A ED EF 31 74 F0 30 5B F1 30 5B
  123.          F2 2E 05 F2 E3 F3 31 7A F2 F4 31 74 F5 30 5B 61 21 30 5B 61 22 2E 05 61 22 E3 61 23 31 7A
  124.          61 22 61 24 31 74 61 25 30 5B 61 26 30 5B 61 27 2E 05 61 27 E3 61 28 31 7A 61 27 61 29 31
  125.          74 61 2A 30 5B 61 2B 30 5B 61 2C 2E 05 61 2C E3 61 2D 31 7A 61 2C 61 2E 31 74 61 2F 30 5B
  126.          61 30 30 5B 61 31 2E 05 61 31 E3 61 32 31 7A 61 31 61 33 31 74 61 34 30 5B 61 35 30 5B 61
  127.          36 2E 05 61 36 E3 61 37 31 7A 61 36 61 38 31 74 61 39 30 5B 61 3A 30 5B 61 3B 2E 05 61 3B
  128.          E3 61 3C 31 7A 61 3B 61 3D 31 74 61 3E 30 5B 61 3F 30 5B 61 40 2E 05 61 40 E3 61 41 31 7A
  129.          61 40 61 42 31 74 61 43 30 5B 61 44 30 5B 61 45 2E 05 61 45 E3 61 46 31 7A 61 45 61 47 31
  130.          74 61 48 30 5B 61 49 30 5B 61 4A 2E 05 61 4A E3 61 4B 31 7A 61 4A 61 4C 31 74 61 4D 30 5B
  131.          61 4E 30 5B 61 4F 2E 05 61 4F E3 61 50 31 7A 61 4F 61 51 31 74 61 52 30 5B 61 53 30 5B 61
  132.          54 2E 05 61 54 E3 61 55 31 7A 61 54 61 56 31 74 E8 61 57 61 58 03 59 76 31 7A E8 61 5A 5F
  133.          2C 03 5B ED 61 57 61 58 03 5C 76 31 7A ED 61 5A 5F 2C 03 5B F2 61 57 61 58 03 5D 76 31 7A
  134.          F2 61 5A 5F 2C 03 5B 61 22 61 57 61 58 03 5E 76 31 7A 61 22 61 5A 5F 2C 03 5B 61 27 61 57
  135.          61 58 03 5F 76 31 7A 61 27 61 5A 5F 2C 03 5B 61 2C 61 57 61 58 03 60 76 31 7A 61 2C 61 5A
  136.          5F 2C 03 5B 61 31 61 57 61 58 03 61 76 31 7A 61 31 61 5A 5F 2C 03 5B 61 36 61 57 61 58 03
  137.          62 76 31 7A 61 36 61 5A 5F 2C 03 5B 61 3B 61 57 61 58 03 63 76 31 7A 61 3B 61 5A 5F 2C 03
  138.          5B 61 40 61 57 61 58 03 64 76 31 7A 61 40 61 5A 5F 2C 03 5B 61 45 61 57 61 58 03 65 76 31
  139.          7A 61 45 61 5A 5F 2C 03 5B 61 4A 61 57 61 58 03 66 76 31 7A 61 4A 61 5A 5F 2C 03 5B 61 4F
  140.          61 57 61 58 03 67 76 31 7A 61 4F 61 5A 5F 2C 03 5B 61 54 61 57 61 58 03 68 76 31 7A 61 54
  141.          61 5A 5F 2C 03 5B DC 61 69 5F 2C 03 5B DC 61 6A 31 7B C7 19 01
  142.         )
  143.    #Y(DEFAULT-TEXT #10Y(00 00 00 00 00 01 2D 00 19 01) MAKE-EMPTY-TEXT)
  144.    #Y(DEFAULT-MARKS #18Y(00 00 00 00 00 01 D5 60 37 06 C0 F8 79 04 30 19 19 01) 12.)
  145.    #Y(DEFAULT-HEIGHT #10Y(00 00 00 00 00 01 0E 00 19 01) GLOBAL-SCREEN-HEIGHT)
  146.    #Y(DEFAULT-WIDTH #10Y(00 00 00 00 00 01 0E 00 19 01) GLOBAL-SCREEN-WIDTH) MK-SCREEN
  147.    SYSTEM::REMOVE-OLD-DEFINITIONS
  148.    #Y(MK-SCREEN
  149.       #190Y(00 00 00 00 80 1B 0E 00 01 00 3A 0E 07 65 00 01 35 00 09 0E 3A 0D 03 CF 09 0D 3A 0C 03
  150.             CF 09 0C 3A 0B 03 CF 09 0B 3A 0A 07 65 00 02 35 00 09 0A 3A 09 06 65 00 03 35 00 FF 3A
  151.             08 06 65 00 04 35 00 FE 3A 07 02 CF FD 3A 06 02 CF FC 3C 05 3A 04 02 7A 04 3A 03 02 CF
  152.             F9 3A 02 02 CF F8 3A 01 02 D0 F7 E6 E7 6E 2C E8 A8 E9 B9 31 2B E8 A8 EA B8 31 2B E8 A8
  153.             EB B7 31 2B E8 A8 EC B6 31 2B E8 A8 ED B5 31 2B E8 A8 EE B4 31 2B E8 A8 EF B3 31 2B E8
  154.             A8 F0 B2 31 2B E8 A8 F1 B1 31 2B E8 A8 F2 B0 31 2B E8 A8 F3 AF 31 2B E8 A8 F4 AE 31 2B
  155.             E8 A8 F5 AD 31 2B E8 A8 61 21 AC 31 2B 15 19 0F
  156.            )
  157.       NIL :TEXT :LIN :COL :SAVED-COL :MARKS :HEIGHT :WIDTH :TOP-LIN :LEFT-COL :VISIBILITY :FULL?
  158.       :PHYS-LEFT-COL :PHYS-TOP-LIN :TITLE 0. #1="" #2=(SCREEN) 15. SCREEN 1. 2. 3. 4. 5. 6. 7. 8.
  159.       9. 10. 11. 12. 13. 14.
  160.      )
  161.    SCREEN SYSTEM::DEFSTRUCT-DESCRIPTION #2#
  162.    ((TEXT 1. (SVREF (GET 'SCREEN . #3=('SYSTEM::DEFSTRUCT-DESCRIPTION)) 4.) T NIL)
  163.     (LIN 2. 0. INTEGER NIL) (COL 3. 0. INTEGER NIL) (SAVED-COL 4. 0. INTEGER NIL)
  164.     (MARKS 5. (SVREF (GET 'SCREEN . #3#) 5.) T NIL)
  165.     (HEIGHT 6. (SVREF (GET 'SCREEN . #3#) 6.) INTEGER NIL)
  166.     (WIDTH 7. (SVREF (GET 'SCREEN . #3#) 7.) INTEGER NIL) (TOP-LIN 8. 0. INTEGER NIL)
  167.     (LEFT-COL 9. 0. INTEGER NIL) (VISIBILITY 10. NIL VECTOR NIL) (FULL? 11. T T NIL)
  168.     (PHYS-LEFT-COL 12. 0. INTEGER NIL) (PHYS-TOP-LIN 13. 0. INTEGER NIL) (TITLE 14. #1# STRING NIL)
  169.    )
  170.    CLOS::DEFINE-STRUCTURE-CLASS (INLINE SCREEN-P) SCREEN-P SYSTEM::INLINE-EXPANSION
  171.    ((SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN SCREEN-P))
  172.     (BLOCK SCREEN-P (SYSTEM::%STRUCTURE-TYPE-P 'SCREEN SYSTEM::OBJECT))
  173.    )
  174.    #Y(SCREEN-P #12Y(01 00 00 00 00 02 D5 A9 31 2E 19 02) SCREEN) (FUNCTION SCREEN-TEXT (SCREEN) T)
  175.    (INLINE SCREEN-TEXT) SCREEN-TEXT
  176.    (#4=(SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN SCREEN-TEXT))
  177.     (BLOCK SCREEN-TEXT (THE T (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 1.)))
  178.    )
  179.    #Y(SCREEN-TEXT #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) SCREEN 1.)
  180.    (FUNCTION SCREEN-LIN (SCREEN) INTEGER) (INLINE SCREEN-LIN) SCREEN-LIN
  181.    (#4# (DECLARE (SYSTEM::IN-DEFUN SCREEN-LIN))
  182.     (BLOCK SCREEN-LIN (THE INTEGER (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 2.)))
  183.    )
  184.    #Y(SCREEN-LIN #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) SCREEN 2.)
  185.    (FUNCTION SCREEN-COL (SCREEN) INTEGER) (INLINE SCREEN-COL) SCREEN-COL
  186.    (#4# (DECLARE (SYSTEM::IN-DEFUN SCREEN-COL))
  187.     (BLOCK SCREEN-COL (THE INTEGER (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 3.)))
  188.    )
  189.    #Y(SCREEN-COL #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) SCREEN 3.)
  190.    (FUNCTION SCREEN-SAVED-COL (SCREEN) INTEGER) (INLINE SCREEN-SAVED-COL) SCREEN-SAVED-COL
  191.    (#4# (DECLARE (SYSTEM::IN-DEFUN SCREEN-SAVED-COL))
  192.     (BLOCK SCREEN-SAVED-COL (THE INTEGER (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 4.)))
  193.    )
  194.    #Y(SCREEN-SAVED-COL #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) SCREEN 4.)
  195.    (FUNCTION SCREEN-MARKS (SCREEN) T) (INLINE SCREEN-MARKS) SCREEN-MARKS
  196.    (#4# (DECLARE (SYSTEM::IN-DEFUN SCREEN-MARKS))
  197.     (BLOCK SCREEN-MARKS (THE T (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 5.)))
  198.    )
  199.    #Y(SCREEN-MARKS #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) SCREEN 5.)
  200.    (FUNCTION SCREEN-HEIGHT (SCREEN) INTEGER) (INLINE SCREEN-HEIGHT) SCREEN-HEIGHT
  201.    (#4# (DECLARE (SYSTEM::IN-DEFUN SCREEN-HEIGHT))
  202.     (BLOCK SCREEN-HEIGHT (THE INTEGER (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 6.)))
  203.    )
  204.    #Y(SCREEN-HEIGHT #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) SCREEN 6.)
  205.    (FUNCTION SCREEN-WIDTH (SCREEN) INTEGER) (INLINE SCREEN-WIDTH) SCREEN-WIDTH
  206.    (#4# (DECLARE (SYSTEM::IN-DEFUN SCREEN-WIDTH))
  207.     (BLOCK SCREEN-WIDTH (THE INTEGER (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 7.)))
  208.    )
  209.    #Y(SCREEN-WIDTH #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) SCREEN 7.)
  210.    (FUNCTION SCREEN-TOP-LIN (SCREEN) INTEGER) (INLINE SCREEN-TOP-LIN) SCREEN-TOP-LIN
  211.    (#4# (DECLARE (SYSTEM::IN-DEFUN SCREEN-TOP-LIN))
  212.     (BLOCK SCREEN-TOP-LIN (THE INTEGER (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 8.)))
  213.    )
  214.    #Y(SCREEN-TOP-LIN #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) SCREEN 8.)
  215.    (FUNCTION SCREEN-LEFT-COL (SCREEN) INTEGER) (INLINE SCREEN-LEFT-COL) SCREEN-LEFT-COL
  216.    (#4# (DECLARE (SYSTEM::IN-DEFUN SCREEN-LEFT-COL))
  217.     (BLOCK SCREEN-LEFT-COL (THE INTEGER (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 9.)))
  218.    )
  219.    #Y(SCREEN-LEFT-COL #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) SCREEN 9.)
  220.    (FUNCTION SCREEN-VISIBILITY (SCREEN) VECTOR) (INLINE SCREEN-VISIBILITY) SCREEN-VISIBILITY
  221.    (#4# (DECLARE (SYSTEM::IN-DEFUN SCREEN-VISIBILITY))
  222.     (BLOCK SCREEN-VISIBILITY (THE VECTOR (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 10.)))
  223.    )
  224.    #Y(SCREEN-VISIBILITY #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) SCREEN 10.)
  225.    (FUNCTION SCREEN-FULL? (SCREEN) T) (INLINE SCREEN-FULL?) SCREEN-FULL?
  226.    (#4# (DECLARE (SYSTEM::IN-DEFUN SCREEN-FULL?))
  227.     (BLOCK SCREEN-FULL? (THE T (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 11.)))
  228.    )
  229.    #Y(SCREEN-FULL? #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) SCREEN 11.)
  230.    (FUNCTION SCREEN-PHYS-LEFT-COL (SCREEN) INTEGER) (INLINE SCREEN-PHYS-LEFT-COL)
  231.    SCREEN-PHYS-LEFT-COL
  232.    (#4# (DECLARE (SYSTEM::IN-DEFUN SCREEN-PHYS-LEFT-COL))
  233.     (BLOCK SCREEN-PHYS-LEFT-COL (THE INTEGER (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 12.)))
  234.    )
  235.    #Y(SCREEN-PHYS-LEFT-COL #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) SCREEN 12.)
  236.    (FUNCTION SCREEN-PHYS-TOP-LIN (SCREEN) INTEGER) (INLINE SCREEN-PHYS-TOP-LIN) SCREEN-PHYS-TOP-LIN
  237.    (#4# (DECLARE (SYSTEM::IN-DEFUN SCREEN-PHYS-TOP-LIN))
  238.     (BLOCK SCREEN-PHYS-TOP-LIN (THE INTEGER (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 13.)))
  239.    )
  240.    #Y(SCREEN-PHYS-TOP-LIN #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) SCREEN 13.)
  241.    (FUNCTION SCREEN-TITLE (SCREEN) STRING) (INLINE SCREEN-TITLE) SCREEN-TITLE
  242.    (#4# (DECLARE (SYSTEM::IN-DEFUN SCREEN-TITLE))
  243.     (BLOCK SCREEN-TITLE (THE STRING (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 14.)))
  244.    )
  245.    #Y(SCREEN-TITLE #13Y(01 00 00 00 00 02 D5 A9 D6 31 2A 19 02) SCREEN 14.) SYSTEM::SETF-EXPANDER
  246.    -1.
  247.    #Y(SETF-SCREEN-TEXT #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  248.       SYSTEM::%STRUCTURE-STORE 'SCREEN 1.
  249.      )
  250.    SETF SYSTEM::%SET-DOCUMENTATION
  251.    #Y(SETF-SCREEN-LIN #22Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 D8 D9 AF 77 03 5C 05 19 04)
  252.       SYSTEM::%STRUCTURE-STORE 'SCREEN 2. THE INTEGER
  253.      )
  254.    #Y(SETF-SCREEN-COL #22Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 D8 D9 AF 77 03 5C 05 19 04)
  255.       SYSTEM::%STRUCTURE-STORE 'SCREEN 3. THE INTEGER
  256.      )
  257.    #Y(SETF-SCREEN-SAVED-COL #22Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 D8 D9 AF 77 03 5C 05 19 04)
  258.       SYSTEM::%STRUCTURE-STORE 'SCREEN 4. THE INTEGER
  259.      )
  260.    #Y(SETF-SCREEN-MARKS #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  261.       SYSTEM::%STRUCTURE-STORE 'SCREEN 5.
  262.      )
  263.    #Y(SETF-SCREEN-HEIGHT #22Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 D8 D9 AF 77 03 5C 05 19 04)
  264.       SYSTEM::%STRUCTURE-STORE 'SCREEN 6. THE INTEGER
  265.      )
  266.    #Y(SETF-SCREEN-WIDTH #22Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 D8 D9 AF 77 03 5C 05 19 04)
  267.       SYSTEM::%STRUCTURE-STORE 'SCREEN 7. THE INTEGER
  268.      )
  269.    #Y(SETF-SCREEN-TOP-LIN #22Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 D8 D9 AF 77 03 5C 05 19 04)
  270.       SYSTEM::%STRUCTURE-STORE 'SCREEN 8. THE INTEGER
  271.      )
  272.    #Y(SETF-SCREEN-LEFT-COL #22Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 D8 D9 AF 77 03 5C 05 19 04)
  273.       SYSTEM::%STRUCTURE-STORE 'SCREEN 9. THE INTEGER
  274.      )
  275.    #Y(SETF-SCREEN-VISIBILITY
  276.       #22Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 D8 D9 AF 77 03 5C 05 19 04)
  277.       SYSTEM::%STRUCTURE-STORE 'SCREEN 10. THE VECTOR
  278.      )
  279.    #Y(SETF-SCREEN-FULL? #18Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 AD 5C 05 19 04)
  280.       SYSTEM::%STRUCTURE-STORE 'SCREEN 11.
  281.      )
  282.    #Y(SETF-SCREEN-PHYS-LEFT-COL
  283.       #22Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 D8 D9 AF 77 03 5C 05 19 04)
  284.       SYSTEM::%STRUCTURE-STORE 'SCREEN 12. THE INTEGER
  285.      )
  286.    #Y(SETF-SCREEN-PHYS-TOP-LIN
  287.       #22Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 D8 D9 AF 77 03 5C 05 19 04)
  288.       SYSTEM::%STRUCTURE-STORE 'SCREEN 13. THE INTEGER
  289.      )
  290.    #Y(SETF-SCREEN-TITLE #22Y(02 00 00 00 00 03 9A 57 74 D5 D6 A9 D7 D8 D9 AF 77 03 5C 05 19 04)
  291.       SYSTEM::%STRUCTURE-STORE 'SCREEN 14. THE STRING
  292.      )
  293.    STRUCTURE SYSTEM::STRUCTURE-PRINT
  294.   )
  295. #Y(#:TOP-LEVEL-FORM-29 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) MAKE-SCREEN
  296.    SYSTEM::REMOVE-OLD-DEFINITIONS
  297.    #Y(MAKE-SCREEN
  298.       #270Y(00 00 00 00 80 1B 05 00 00 00 3C 05 3C 04 3C 03 3C 02 3A 01 80 D3 79 01 8F 05 80 D1 DA
  299.             8E 06 80 6F DB 67 07 DD 6F 02 35 37 01 6E A6 32 02 33 14 7E 01 31 05 DE 8E 05 80 64 DB
  300.             67 0A E0 6E C4 32 02 33 14 7E 01 31 04 8E 02 80 5F DA 67 07 AE 6F 01 34 E0 6E C4 7E 01
  301.             31 02 8E 03 80 6D DA 67 0A AD 6F 01 34 E0 6E C4 7E 01 31 03 D5 AD D6 AE E1 5F D9 8E 08
  302.             01 CD 14 E3 B3 E4 B4 E5 B9 6B 11 E7 E8 BC 6F 02 33 37 07 79 04 6D 19 2C 10 14 19 06 14
  303.             DB 67 07 6F 02 33 32 01 32 1A FF 92 14 DB 67 0A 6F 02 33 32 01 32 1A FF 98 DA AA 6F 01
  304.             31 67 07 DA DA 6F 02 34 7E 01 32 02 AC 67 07 DA AC 6F 02 34 7E 01 32 05 8F 03 FF 93 DA
  305.             AB 6F 01 31 67 0A DA DE 6F 02 34 7E 01 32 03 AB 67 0A DA AD 6F 02 34 7E 01 32 04 1A FF
  306.             82 8E 05 FF 2F 8E 04 FF 2B 8E 03 FF 27 8E 02 FF 23 8E 01 FF 1F E7 E8 67 07 6F 02 33 37
  307.             07 79 04 6D 19 2F 14 19 06
  308.            )
  309.       :HEIGHT :WIDTH :LEFT-COL :TOP-LIN :TITLE 1. -2. GLOBAL-SCREEN-HEIGHT 0.67s0 10.
  310.       GLOBAL-SCREEN-WIDTH -1. :FULL? "" :PHYS-LEFT-COL :PHYS-TOP-LIN :TEXT MAKE-EMPTY-TEXT
  311.       :VISIBILITY 2. MK-SCREEN
  312.   )  )
  313. #Y(#:TOP-LEVEL-FORM-30 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) RESIZE-ARRAY
  314.    SYSTEM::REMOVE-OLD-DEFINITIONS
  315.    #Y(RESIZE-ARRAY
  316.       #40Y(02 00 01 00 00 09 3A 01 02 C0 F7 AA D6 6D 04 AA 8C 01 30 0E AA AA AA 6F 02 33 37 06 A2
  317.            F8 30 1A 19 04 AA AA 30 15 19 04
  318.           )
  319.       10. 0.
  320.   )  )
  321. #Y(#:TOP-LEVEL-FORM-31 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SHRINK-ARRAY
  322.    SYSTEM::REMOVE-OLD-DEFINITIONS
  323.    #Y(SHRINK-ARRAY
  324.       #46Y(02 00 00 00 00 03 A9 6D 14 A7 AA 6F 01 34 AB A8 30 15 AB 6D 02 02 21 03 00 19 05 A7 1A
  325.            08 AC A8 5F 32 01 02 81 00 A7 AA 89 FE 73 00 19 06
  326.   )  )    )
  327. #Y(#:TOP-LEVEL-FORM-32 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DISPLAY-BLANKS
  328.    SYSTEM::REMOVE-OLD-DEFINITIONS
  329.    #Y(DISPLAY-BLANKS
  330.       #40Y(02 00 00 00 00 03 A8 AA 6F 01 34 A7 D5 8D 01 2E 06 A9 67 01 88 FE 0B 67 04 67 02 37 01
  331.            AA 30 89 19 04 67 02 2E 03 19 04
  332.           )
  333.       3. GLOBAL-SCREEN-WIDTH *WINDOW* SCREEN:CLEAR-WINDOW-TO-EOL BLANKS
  334.   )  )
  335. #Y(#:TOP-LEVEL-FORM-33 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DISPLAY-LINE
  336.    SYSTEM::REMOVE-OLD-DEFINITIONS
  337.    #Y(DISPLAY-LINE
  338.       #171Y(07 00 00 00 00 00 AE 6E 41 AC 8D 01 2E 80 71 8F 02 07 D6 67 02 30 88 81 04 AA 8F 02 02
  339.             82 00 AF 6E 41 A8 6F 01 32 8F 08 80 5D 8F 07 80 59 AE AE 8C 01 2F 80 52 AF A8 8C 01 30
  340.             80 4B AF AE 8D 01 2F 07 A7 AF 8C 01 2F 80 44 AF AE 7E 01 31 08 AE A8 7E 01 32 07 B0 67
  341.             02 AF B2 30 89 67 02 2E 03 B0 67 02 B1 B1 30 89 67 02 2E 04 B0 67 02 A1 14 AA 30 89 A7
  342.             B1 6E 41 88 FE 24 8E 03 27 00 19 0A AB AB 2F 00 00 19 08 B0 67 02 A0 1A 62 67 02 2E 03
  343.             B0 67 02 AF AA 30 89 67 02 2E 04 1A 55 A7 AD 2F 00 19 0A DA 67 02 30 88 19 0A
  344.            )
  345.       DISPLAY-BLANKS #\ *WINDOW* SCREEN:HIGHLIGHT-ON SCREEN:HIGHLIGHT-OFF #\
  346.   )  )
  347. #Y(#:TOP-LEVEL-FORM-34 #19Y(00 00 00 00 00 01 D5 2E 01 D5 5F 69 02 01 31 74 C0 19 01)
  348.    SHOW-SCREEN-LINE SYSTEM::REMOVE-OLD-DEFINITIONS
  349.    #Y(SHOW-SCREEN-LINE
  350.       #399Y(04 00 00 00 00 05 D6 AC D7 6E 2A D6 AD D8 6E 2A D6 AE D9 6E 2A D6 AF DA 6E 2A D6 B0 DB
  351.             8A 2A 80 C8 AD DD 7E 01 31 06 AC AA 31 89 14 7E 01 32 05 AC AE 8D 01 2E 81 55 D6 B0 DB
  352.             8A 2A 80 B6 DD AF AC 8D 02 2F 81 46 67 09 A8 B0 6F 02 33 AA B0 6F 02 33 2C 03 0A AE 23
  353.             08 80 AF AE AB 88 FE 80 D3 D6 B0 E9 6E 2A AF D6 B2 EA 6E 2A 6F 02 33 D6 B2 EB 6E 2A A8
  354.             AA 6E 41 8C 01 2D 80 D8 03 17 14 D6 B4 ED 6E 2A A7 DC 6F 01 01 A8 E9 6F 01 01 B4 24 08
  355.             08 EE 67 09 30 88 C7 09 0D AA 8F 02 0F 74 AE 88 FE 80 B8 90 02 AE 8C 01 2D 80 B5 00 14
  356.             8F 02 0F 74 AF 88 FE 80 AE 90 02 AF 8C 01 2E 80 AB 00 14 AE B8 6F 02 33 AF B8 B6 6F 01
  357.             32 6F 02 33 B0 8B 85 03 B9 C7 55 14 B9 B7 6F 01 30 2C 07 1A B3 92 0A 88 FE 80 8A 00 19
  358.             10 AD DC 7E 01 31 06 AC 9B 1A FF 37 DD AF AC 8D 02 2D 80 90 1A FF 47 5F E2 AD E3 AC 2C
  359.             05 0F 1A 15 D6 B0 E0 6E 2A E1 6D 4C A8 6E 41 AC 8C 01 2D 66 A8 DC AD 31 3F 14 E5 6D 4C
  360.             6F 03 13 A7 67 09 92 0A 92 0A 30 89 19 0B 9B 1A 13 AD 24 08 07 E6 67 09 30 88 C7 FC DC
  361.             AD 92 04 88 FE 6B 9E 14 AF 6F 01 34 1A 31 E8 67 09 30 88 19 09 A9 A9 32 01 01 1A FF 22
  362.             9A 57 1A FF 4C C7 1A FF 48 9A 57 1A FF 56 AC 31 41 1A FF 50 EE 67 09 30 88 19 10 E7 67
  363.             09 30 88 81 01 A8 A8 8D 01 30 73 16 02 AC 92 03 88 FE 41 00 19 09
  364.            )
  365.       NIL SCREEN 6. 7. 12. 13. 11. 0. -1. *WINDOW* SCREEN:SET-WINDOW-CURSOR-POSITION 14. #\╒
  366.       "~V,,0,V:@<~A~>" #\═ FORMAT #\╕ #\└ #\─ #\┘ 1. 8. 9. "" 5. #\│ DISPLAY-LINE
  367.   )  )
  368. #Y(#:TOP-LEVEL-FORM-35 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SHOW-SCREEN-LINE-V
  369.    SYSTEM::REMOVE-OLD-DEFINITIONS
  370.    #Y(SHOW-SCREEN-LINE-V
  371.       #100Y(04 00 00 00 00 05 D5 AC D6 6E 2A D5 AD D7 6E 2A D5 AE D8 6E 2A AC D9 7E 01 31 05 AB A9
  372.             7E 01 32 04 AC AC 8D 01 2D 07 DA AE AB 8C 02 2D 03 00 19 08 A7 92 07 6F 01 01 5F 1A 23
  373.             83 01 00 75 AF 8D 01 2E 18 90 00 AE 8D 01 2D 11 B0 B0 B0 90 03 6F 01 31 B0 91 04 6F 01
  374.             32 2C 04 06 7F 01 A8 89 92 59 00 19 0A
  375.            )
  376.       SCREEN 6. 7. 10. 0. -1. SHOW-SCREEN-LINE
  377.   )  )
  378. #Y(#:TOP-LEVEL-FORM-36 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DISPLAY-SCREEN
  379.    SYSTEM::REMOVE-OLD-DEFINITIONS
  380.    #Y(DISPLAY-SCREEN
  381.       #45Y(01 00 02 00 00 0D 3A 02 02 C0 F8 3A 01 06 D6 AB D7 7D 2A 01 D6 AB D8 6E 2A AA 1A 09 AC
  382.            A8 D5 AB 2C 04 04 81 00 A7 AB 89 FE 72 02 19 06
  383.           )
  384.       0. SCREEN 6. 7. SHOW-SCREEN-LINE-V
  385.   )  )
  386. #Y(#:TOP-LEVEL-FORM-37 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  387.    UPDATE-VISIBILITY-LIST-1 SYSTEM::REMOVE-OLD-DEFINITIONS
  388.    #Y(UPDATE-VISIBILITY-LIST-1
  389.       #113Y(03 00 00 00 00 04 00 2A 02 7B 03 00 00 7B 02 00 01 A7 69 00 01 AC 37 05 7D 4C 04 A7 69
  390.             01 01 AC 37 01 6D B4 A8 69 02 01 AD 37 01 6D B4 8F 01 07 8F 00 04 A8 99 21 11 8E 01 2C
  391.             8F 00 06 74 64 03 01 30 A8 16 02 9C 19 05 64 02 01 90 02 91 00 64 05 00 A9 A8 30 AA 99
  392.             16 03 76 A7 9B 57 76 AA A8 30 AA 16 02 1A 5D 74 64 03 00 30 AA 8F 00 54 1A 4C
  393.            )
  394.       #Y(UPDATE-VISIBILITY-LIST-1-1
  395.          #28Y(01 00 00 00 00 02 65 00 01 90 02 32 01 2F 1E 0A 91 01 65 00 02 32 01 2F 19 02 19 02)
  396.          NIL
  397.         )
  398.       #Y(UPDATE-VISIBILITY-LIST-1-2 #18Y(01 00 00 00 00 02 90 01 65 00 01 91 03 32 02 2D 19 02) NIL
  399.         )
  400.       #Y(UPDATE-VISIBILITY-LIST-1-3 #18Y(01 00 00 00 00 02 90 01 65 00 02 91 03 32 02 2D 19 02) NIL
  401.   )  )  )
  402. #Y(#:TOP-LEVEL-FORM-38 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  403.    UPDATE-VISIBILITY-LIST-2 SYSTEM::REMOVE-OLD-DEFINITIONS
  404.    #Y(UPDATE-VISIBILITY-LIST-2
  405.       #94Y(03 00 00 00 00 04 5F AB 8F 00 14 AA 99 56 74 8C 01 2F 0C A7 91 01 99 F9 98 F8 16 02 8E
  406.            00 6C 8F 00 21 AA 99 56 74 8C 01 2D 19 90 00 AC 30 A8 8F 01 19 99 56 75 AC 88 FE 16 A8
  407.            99 14 30 AA 16 02 9B 19 04 AB 9C 76 80 00 8E 01 67 98 FB 1A 6F 98 56 75 90 02 A8 30 AA
  408.            16 01 A8 99 57 1A 5D
  409.   )  )    )
  410. #Y(#:TOP-LEVEL-FORM-39 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) UPDATE-VISIBILITY
  411.    SYSTEM::REMOVE-OLD-DEFINITIONS
  412.    #Y(UPDATE-VISIBILITY
  413.       #118Y(05 00 00 00 00 06 D5 AD D6 6E 2A D5 AE D7 6E 2A D5 AF D8 6E 2A D9 AF AB 6F 01 34 6F 01
  414.             31 D5 B1 DA 6E 2A 6E 89 AF AC 6F 01 34 6F 01 32 D9 AF AC 6F 01 34 6F 01 31 D5 B3 DB 6E
  415.             2A 6E 89 AF AD 6F 01 34 6F 01 32 A9 AB 8D 01 2E 06 A7 A9 8C 01 2E 03 00 19 0D 92 03 92
  416.             03 1A 14 AD A9 6F 01 01 AB AB 6A 03 07 AE AA A9 32 01 02 16 01 81 01 A8 A8 89 FE 67 00
  417.             19 0F
  418.            )
  419.       SCREEN 13. 12. 10. -1. 6. 7. UPDATE-VISIBILITY-LIST-1
  420.   )  )
  421. #Y(#:TOP-LEVEL-FORM-40 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  422.    SHOW-NEWLY-VISIBLE-LINE-PARTS SYSTEM::REMOVE-OLD-DEFINITIONS
  423.    #Y(SHOW-NEWLY-VISIBLE-LINE-PARTS
  424.       #161Y(04 00 00 00 00 05 8E 04 80 4C 00 19 05 AE B4 AD AF 32 02 33 1A 80 83 92 02 AB 92 04 6F
  425.             01 01 DB AB 6F 01 31 AF AB 6F 01 32 6A 03 08 AC A9 A9 32 01 02 16 02 A8 DB 8D 01 2D 07
  426.             AE B4 B4 93 07 27 11 AF AA AA AA 2C 04 09 A7 AD 8C 01 2E FF BE 00 19 0E 8F 04 FF B4 90
  427.             04 91 05 D5 A9 D6 6E 2A D5 AA D7 6E 2A 6E 89 D5 AB D8 6E 2A D5 AC D9 6E 2A B0 D5 AE DA
  428.             6E 2A 6F 01 34 B0 AA 6F 01 34 B0 AB 6F 01 34 DB AA AF 8D 02 2F 0D DC A8 8D 01 2F 07 A8
  429.             AD 8C 01 2D FF 80 AE B4 A5 14 B4 28 04 12 FF B1
  430.            )
  431.       SCREEN 6. 7. 12. 10. 13. -1. 0. UPDATE-VISIBILITY-LIST-2 SHOW-SCREEN-LINE
  432.   )  )
  433. #Y(#:TOP-LEVEL-FORM-41 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 5F 30 53 C1 19 01)
  434.    (SPECIAL *SCREENS*) *SCREENS*
  435.   )
  436. #Y(#:TOP-LEVEL-FORM-42 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SET-CURSOR
  437.    SYSTEM::REMOVE-OLD-DEFINITIONS
  438.    #Y(SET-CURSOR
  439.       #77Y(02 00 01 00 00 09 3B 01 14 3A 02 06 D5 AC D6 7D 2A 02 D5 AC D7 6E 2A A7 6E 41 D8 AD 93
  440.            02 6F 01 32 7E 01 31 05 D8 AC AA AF 6F 01 01 6E 41 6F 01 32 7E 01 31 04 D5 AE D9 AF 31
  441.            2B D5 AE DA AE 31 2B 8F 02 06 D5 AE D6 AE 31 2B 02 19 07
  442.           )
  443.       SCREEN 4. 1. 0. 2. 3.
  444.   )  )
  445. #Y(#:TOP-LEVEL-FORM-43 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SCROLL-VERTICAL
  446.    SYSTEM::REMOVE-OLD-DEFINITIONS
  447.    #Y(SCROLL-VERTICAL
  448.       #184Y(02 00 01 00 00 09 3C 01 D5 AB D6 6E 2A A7 6E 41 D5 AD D7 6E 2A 8F 04 0C AD D5 AF D8 6E
  449.             2A AE 6F 02 33 2F 04 A7 6F 00 34 AD AA D6 AB 6F 02 34 6F 01 32 7E 01 31 05 A7 AD 6F 02
  450.             33 D5 AF D7 AA 31 2B 16 01 AC 23 05 2A AC 6E 91 DB 8C 01 2E 25 D5 AE DC 8B 2A 1F 0E 08
  451.             1C 1B AD 0E 08 56 22 15 AC 8A 85 16 67 0A DA DA 2C 03 0B DA AD 6F 00 34 1A 34 9E 19 07
  452.             AD 2E 09 19 07 67 0A DA DA 2C 03 0B DA 1A 06 67 0A 2E 0C 81 00 A7 AE 8D 01 30 74 16 01
  453.             AD D5 AF E2 6E 2A AE 6F 01 34 2F 09 19 07 67 0A 2E 0E 81 01 A8 A8 8D 01 30 74 16 02 AD
  454.             DA AE 6F 00 34 2C 03 09 19 07
  455.            )
  456.       SCREEN 1. 8. 2. SET-CURSOR 0. 10. 11. *SCREENS* DISPLAY-SCREEN *WINDOW*
  457.       SCREEN:SET-WINDOW-CURSOR-POSITION SCREEN:DELETE-WINDOW-LINE 6. SCREEN:INSERT-WINDOW-LINE
  458.   )  )
  459. #Y(#:TOP-LEVEL-FORM-44 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SCROLL-HORIZONTAL
  460.    SYSTEM::REMOVE-OLD-DEFINITIONS
  461.    #Y(SCROLL-HORIZONTAL
  462.       #49Y(02 00 00 00 00 03 D5 AA D6 6E 2A A7 AA 6F 02 33 8B 86 05 A7 7E 00 34 02 A9 23 02 12 A7
  463.            AA 6F 02 33 D5 AC D6 AA 31 2B 16 01 AA 2E 03 19 04 9B 19 04
  464.           )
  465.       SCREEN 9. 0. DISPLAY-SCREEN
  466.   )  )
  467. #Y(#:TOP-LEVEL-FORM-45 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SET-CURSOR-VISIBLE
  468.    SYSTEM::REMOVE-OLD-DEFINITIONS
  469.    #Y(SET-CURSOR-VISIBLE
  470.       #301Y(01 00 01 00 00 08 3C 01 D5 AA D6 6E 2A D5 AB D7 6E 2A D5 AC D8 6E 2A D5 AD D9 6E 2A D5
  471.             AE DA 6E 2A D5 AF DB 6E 2A A9 23 07 33 A9 31 89 14 AC DD AC AB 6F 03 33 8D 02 2F 80 71
  472.             AC AB 8C 01 2D 26 AC AB AA 6F 02 33 8D 01 30 80 A0 AF AD DE AD 8E 0B 21 9D 14 32 03 34
  473.             14 2F 0A 1A 80 8E C7 1A 4D AB DE 31 C4 1A 07 AF AD AC 8E 0A 74 C7 14 32 02 34 1A 64 AC
  474.             DE 31 C4 1A 5A AA DE 31 C4 1A 1A E1 AB 32 02 33 1A 13 AF AC AB 8E 0A 6D AA E0 8C 01 2D
  475.             67 AE AD 8C 01 2F 67 CD 14 6F 02 34 2F 0E 1A 80 49 C7 1A 28 A8 DE 31 C4 1A 1E AA AD DE
  476.             AD AC 6F 03 33 8C 02 2F 4F AB 93 01 8C 01 2D 64 AB 8E 08 63 A8 E0 8C 01 2D 5D CD 14 32
  477.             01 34 14 DC AE AB DE 6E C4 6F 01 34 6F 01 31 D5 B2 D9 AB 31 2B D5 B2 D8 AA 31 2B B1 2E
  478.             0F 16 02 16 06 0E 10 1C 39 A9 0E 10 56 22 33 67 11 D5 AB D6 6E 2A D5 AC D8 6E 2A 6F 01
  479.             34 D5 AC E7 6E 2A 6F 02 33 D5 AC D7 6E 2A D5 AD D9 6E 2A 6F 01 34 D5 AD E8 6E 2A 6F 02
  480.             33 2C 03 14 67 11 2E 15 02 19 03
  481.            )
  482.       SCREEN 2. 3. 8. 9. 6. 7. 0. -2. -1. SCROLL-VERTICAL 40. -20. 20. SCROLL-HORIZONTAL
  483.       DISPLAY-SCREEN *SCREENS* *WINDOW* 13. 12. SCREEN:SET-WINDOW-CURSOR-POSITION
  484.       SCREEN:WINDOW-CURSOR-ON
  485.   )  )
  486. #Y(#:TOP-LEVEL-FORM-46 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) REFRESH-LINE
  487.    SYSTEM::REMOVE-OLD-DEFINITIONS
  488.    #Y(REFRESH-LINE
  489.       #36Y(03 00 00 00 00 04 AA AA D5 AD D6 6E 2A 6F 01 34 AA D5 AE D7 6E 2A 6F 01 34 D5 AE D8 6E
  490.            2A 2C 04 04 02 19 04
  491.           )
  492.       SCREEN 8. 9. 7. SHOW-SCREEN-LINE-V
  493.   )  )
  494. #Y(#:TOP-LEVEL-FORM-47 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) REFRESH-SCREEN
  495.    SYSTEM::REMOVE-OLD-DEFINITIONS
  496.    #Y(REFRESH-SCREEN
  497.       #259Y(03 00 01 00 00 0A 3A 01 02 C0 F7 D6 AC D7 6E 2A D6 AD D8 6E 2A A8 A8 6F 02 33 AD 8C 01
  498.             2F 22 AB A9 8C 01 2F 1F AA 6E 91 D9 8C 01 2E 11 D6 AE DA 8B 2A 0B 0E 06 1C 07 AD 0E 06
  499.             56 21 80 8B AD 2E 07 02 19 07 A8 AB 6F 02 33 D6 AF D7 AA 31 2B 16 01 1A 6E 67 08 A8 D5
  500.             2C 03 09 D5 AC 6F 00 34 1A 06 67 08 2E 0A 81 01 A8 A8 8D 01 30 74 16 03 1A 80 6E AB A9
  501.             AC 6F 01 34 7E 01 31 04 14 AB 6F 02 33 A9 6F 01 34 A7 AC 6F 01 34 A9 8C 01 2D 44 16 01
  502.             1A 80 4C AE 99 1A 28 A7 AC 6F 02 33 A9 8C 01 30 72 67 08 A8 D5 2C 03 09 D5 1A 06 67 08
  503.             2E 0B 81 00 A7 AD 8D 01 30 74 16 01 AE A9 AD 32 01 34 14 AA 2C 03 07 16 01 1A 17 AA 8A
  504.             86 FF A4 AA 8B 85 0E AB A9 6F 01 34 A7 A9 8C 01 2D FF BA 16 01 D5 AD AA 6F 01 34 6F 01
  505.             31 AC AA 6F 01 34 A9 6F 01 32 A8 A8 8D 01 2D 06 AF A9 A9 2C 03 07 16 04 02 19 05
  506.            )
  507.       0. SCREEN 8. 6. 10. 11. *SCREENS* DISPLAY-SCREEN *WINDOW* SCREEN:SET-WINDOW-CURSOR-POSITION
  508.       SCREEN:INSERT-WINDOW-LINE SCREEN:DELETE-WINDOW-LINE
  509.   )  )
  510. #Y(#:TOP-LEVEL-FORM-48 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) HIDE-SCREEN
  511.    SYSTEM::REMOVE-OLD-DEFINITIONS
  512.    #Y(HIDE-SCREEN
  513.       #117Y(01 00 00 00 00 02 D5 D6 AA D7 6E 2A 6F 02 33 D6 AA D8 6E 2A D6 AB D9 6E 2A D6 AC DA 6E
  514.             2A AC 67 06 DC 37 02 6D B3 8F 00 80 46 DD 93 04 1A 2F AA A9 6F 01 01 5F 1A 17 83 01 00
  515.             91 04 AA AF 90 03 6F 02 33 B0 91 04 6F 02 33 2C 04 09 7F 01 A8 89 92 65 16 02 AA A9 5F
  516.             32 01 02 81 01 81 00 A8 AE 89 FE 4C 16 02 AD 67 06 37 07 C7 F8 31 4B 0F 06 0E 06 56 19
  517.             07
  518.            )
  519.       2. SCREEN 6. 13. 12. 10. *SCREENS* #.#'EQ 0. SHOW-NEWLY-VISIBLE-LINE-PARTS
  520.   )  )
  521. #Y(#:TOP-LEVEL-FORM-49 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) ACTIVATE-SCREEN
  522.    SYSTEM::REMOVE-OLD-DEFINITIONS
  523.    #Y(ACTIVATE-SCREEN
  524.       #220Y(01 00 00 00 00 02 D5 A9 D6 6E 2A D5 AA D7 6E 2A D5 AB D8 6E 2A D5 AC D9 6E 2A A8 AB 6F
  525.             02 33 A8 AB 6F 02 33 D5 AF DA 6E 2A DB AD 0E 07 1C 07 B1 0E 07 56 21 80 A1 D5 B2 DD 8A
  526.             2A 0C 82 06 81 04 82 05 81 03 82 01 81 00 67 07 8F 00 13 90 00 A4 21 0E 90 00 AF AE B0
  527.             AF 2C 05 09 7F 00 8E 00 6D 16 01 B1 B2 67 07 37 07 CA F8 31 4B 58 0F 07 D5 B2 DD 8A 2A
  528.             09 DB E1 B1 6F 02 33 1A 80 51 DB 1A 24 A9 9A 76 77 01 AB 92 02 6F 01 01 A8 88 FF 11 92
  529.             01 AC A8 AA 32 01 02 16 01 B3 A9 AC AC 2C 04 0B 16 01 81 00 A7 B1 8D 01 30 56 16 01 1A
  530.             28 AA 9B 76 77 01 AC AA 6F 01 01 A8 88 FF 0E AC AA A9 32 01 02 B4 93 03 AD AD 2C 04 0B
  531.             16 01 81 01 A8 A8 8D 01 30 5A 16 02 16 09 02 19 02
  532.            )
  533.       SCREEN 6. 7. 13. 12. 10. 0. *SCREENS* 11. UPDATE-VISIBILITY #.#'EQ SHOW-SCREEN-LINE 2.
  534.   )  )
  535. #Y(#:TOP-LEVEL-FORM-50 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) UPDATE-MARKS
  536.    SYSTEM::REMOVE-OLD-DEFINITIONS
  537.    #Y(UPDATE-MARKS
  538.       #160Y(05 00 00 00 00 06 00 2A 04 7B 05 00 00 7B 04 00 01 7B 03 00 02 7B 02 00 03 A7 69 00 01
  539.             D6 AF D7 6E 2A D6 B0 D8 6E 2A A8 64 04 00 89 FE 07 A7 64 04 01 88 FE 22 A8 A8 9C 33 41
  540.             02 D6 B3 D7 AB 31 2B D6 B3 D8 AA 31 2B 16 02 16 02 D6 AF DA 6E 2A DB A8 6E 41 1A 80 40
  541.             64 03 02 D6 B2 D7 AA 31 2B 16 01 64 03 03 D6 B2 D8 AA 31 2B 16 01 64 03 03 D6 B2 D9 AA
  542.             31 2B 16 01 1A 4F A9 A9 6F 01 01 8F 00 11 74 91 01 9E 33 41 02 A9 A9 30 A8 A9 A8 30 AA
  543.             16 02 16 01 81 01 A8 A8 8D 01 30 5D 00 19 0B
  544.            )
  545.       #Y(UPDATE-MARKS-NEW-LIN-COL
  546.          #200Y(02 00 00 00 00 03 65 00 01 65 00 03 88 FE 37 65 00 01 65 00 03 8C 01 2E 38 A9 65 00
  547.                01 88 FE 80 81 65 00 01 AA 8D 01 2D 80 96 A9 65 00 03 65 00 01 6F 01 34 32 02 33 1A
  548.                80 87 65 00 02 A9 8D 01 2D 16 9A 1A 80 67 A9 65 00 01 88 FE 6D 9A 1A 80 70 A9 65 00
  549.                03 89 FE 2C A9 A9 65 00 04 32 01 32 1A 80 60 65 00 03 A9 65 00 04 65 00 02 6F 01 34
  550.                6F 02 33 65 00 04 32 01 31 1A 80 47 65 00 03 07 00 04 1A 3F A9 65 00 01 88 FE 58 65
  551.                00 03 AA 65 00 01 8C 02 2D 66 65 00 01 AA 8C 01 2D FF 8B 9A 1A 1F A8 65 00 02 8D 01
  552.                2E 13 07 00 03 14 A9 65 00 04 65 00 02 6F 01 34 32 02 33 1A 06 9A 1A 01 9A 14 9A 14
  553.                3F 02 19 03
  554.               )
  555.          NIL
  556.         )
  557.       SCREEN 2. 3. 4. 5. 0.
  558.   )  )
  559. #Y(#:TOP-LEVEL-FORM-51 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SCROLL-SCREEN
  560.    SYSTEM::REMOVE-OLD-DEFINITIONS
  561.    #Y(SCROLL-SCREEN #15Y(02 00 00 00 00 03 A9 A9 60 2C 03 00 02 19 03) SCROLL-VERTICAL)
  562.   )
  563. #Y(#:TOP-LEVEL-FORM-52 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 5F 30 53 C1 19 01)
  564.    (SPECIAL *UNDO*) *UNDO*
  565.   )
  566. #Y(#:TOP-LEVEL-FORM-53 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) UNDO1
  567.    SYSTEM::REMOVE-OLD-DEFINITIONS #Y(UNDO1 #9Y(01 00 00 00 00 02 00 19 02))
  568.   )
  569. #Y(#:TOP-LEVEL-FORM-54 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) UNDO2
  570.    SYSTEM::REMOVE-OLD-DEFINITIONS #Y(UNDO2 #9Y(01 00 00 00 00 02 00 19 02))
  571.   )
  572. #Y(#:TOP-LEVEL-FORM-55 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) UNDO3
  573.    SYSTEM::REMOVE-OLD-DEFINITIONS #Y(UNDO3 #9Y(01 00 00 00 00 02 00 19 02))
  574.   )
  575. #Y(#:TOP-LEVEL-FORM-56 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  576.    CURSOR-UP SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "cursor up" SYSTEM::%SET-DOCUMENTATION
  577.    #Y(CURSOR-UP
  578.       #28Y(01 00 00 00 00 02 D5 A9 D6 6E 2A A7 31 85 1E 0A A9 2E 02 A9 93 01 2F 03 19 03 19 03)
  579.       SCREEN 2. UNDO3 SET-CURSOR
  580.   )  )
  581. #Y(#:TOP-LEVEL-FORM-57 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  582.    CURSOR-DOWN SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "cursor down" SYSTEM::%SET-DOCUMENTATION
  583.    #Y(CURSOR-DOWN
  584.       #38Y(01 00 00 00 00 02 D5 A9 D6 6E 2A A7 D5 AB D7 6E 2A 6E 41 6E 8A 32 01 2D 1E 0A A9 2E 03
  585.            A9 92 01 2F 04 19 03 19 03
  586.           )
  587.       SCREEN 2. 1. UNDO3 SET-CURSOR
  588.   )  )
  589. #Y(#:TOP-LEVEL-FORM-58 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  590.    CURSOR-LEFT SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "cursor left" SYSTEM::%SET-DOCUMENTATION
  591.    #Y(CURSOR-LEFT
  592.       #56Y(01 00 00 00 00 02 D5 A9 D6 6E 2A D5 AA D7 6E 2A A7 8A 85 1D A8 8B 85 1D 82 01 D5 AB D8
  593.            6E 2A A9 6F 01 01 7D 41 00 AA 2E 04 AA A9 A9 2C 03 05 19 04 82 00 1A 71 00 19 04
  594.           )
  595.       SCREEN 2. 3. 1. UNDO3 SET-CURSOR
  596.   )  )
  597. #Y(#:TOP-LEVEL-FORM-59 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  598.    CURSOR-RIGHT SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "cursor right" SYSTEM::%SET-DOCUMENTATION
  599.    #Y(CURSOR-RIGHT
  600.       #65Y(01 00 00 00 00 02 D5 A9 D6 6E 2A D5 AA D7 6E 2A D5 AB D8 6E 2A A7 AA AA 6F 01 01 6E 41
  601.            8C 01 2D 19 A8 AA 6E 41 6E 8A 8D 01 2D 13 81 01 C4 F6 AB 2E 05 AB A9 A9 2C 03 06 19 05
  602.            81 00 1A 71 00 19 05
  603.           )
  604.       SCREEN 1. 2. 3. 0. UNDO3 SET-CURSOR
  605.   )  )
  606. #Y(#:TOP-LEVEL-FORM-60 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  607.    CURSOR-TO-START-OF-LINE SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "cursor to start of line"
  608.    SYSTEM::%SET-DOCUMENTATION
  609.    #Y(CURSOR-TO-START-OF-LINE
  610.       #22Y(01 00 00 00 00 02 D5 A9 D6 6E 2A A9 2E 02 A9 A8 D8 2C 03 04 19 03) SCREEN 2. UNDO3 0.
  611.       SET-CURSOR
  612.   )  )
  613. #Y(#:TOP-LEVEL-FORM-61 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  614.    CURSOR-TO-END-OF-LINE SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "cursor to end of line"
  615.    SYSTEM::%SET-DOCUMENTATION
  616.    #Y(CURSOR-TO-END-OF-LINE
  617.       #32Y(01 00 00 00 00 02 D5 A9 D6 6E 2A A9 2E 02 A9 A8 D5 AC D8 6E 2A AA 6F 01 01 6E 41 2C 03
  618.            04 19 03
  619.           )
  620.       SCREEN 2. UNDO3 1. SET-CURSOR
  621.   )  )
  622. #Y(#:TOP-LEVEL-FORM-62 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  623.    CURSOR-TO-START-OF-TEXT SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "cursor to start of text"
  624.    SYSTEM::%SET-DOCUMENTATION
  625.    #Y(CURSOR-TO-START-OF-TEXT #17Y(01 00 00 00 00 02 A8 2E 00 A8 D6 D6 2C 03 02 19 02) UNDO3 0.
  626.       SET-CURSOR
  627.   )  )
  628. #Y(#:TOP-LEVEL-FORM-63 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  629.    CURSOR-TO-END-OF-TEXT SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "cursor to end of text"
  630.    SYSTEM::%SET-DOCUMENTATION
  631.    #Y(CURSOR-TO-END-OF-TEXT
  632.       #33Y(01 00 00 00 00 02 A8 2E 00 D6 A9 D7 6E 2A A7 6E 41 6E 8A AA A8 AA AA 6F 01 01 6E 41 2C
  633.            03 03 19 04
  634.           )
  635.       UNDO3 SCREEN 1. SET-CURSOR
  636.   )  )
  637. #Y(#:TOP-LEVEL-FORM-64 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  638.    PAGE-UP SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "page up" SYSTEM::%SET-DOCUMENTATION
  639.    #Y(PAGE-UP #23Y(01 00 00 00 00 02 A8 2E 00 A8 D6 D7 AB D8 6E 2A 6F 01 34 2F 04 19 02) UNDO3 1.
  640.       SCREEN 6. SCROLL-SCREEN
  641.   )  )
  642. #Y(#:TOP-LEVEL-FORM-65 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  643.    PAGE-DOWN SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "page down" SYSTEM::%SET-DOCUMENTATION
  644.    #Y(PAGE-DOWN #21Y(01 00 00 00 00 02 A8 2E 00 A8 D6 AA D7 6E 2A 6E 8A 2F 03 19 02) UNDO3 SCREEN
  645.       6. SCROLL-SCREEN
  646.   )  )
  647. #Y(#:TOP-LEVEL-FORM-66 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  648.    LINE-UP SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "line up" SYSTEM::%SET-DOCUMENTATION
  649.    #Y(LINE-UP #15Y(01 00 00 00 00 02 A8 2E 00 A8 D6 2F 02 19 02) UNDO3 -1. SCROLL-SCREEN)
  650.   )
  651. #Y(#:TOP-LEVEL-FORM-67 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  652.    LINE-DOWN SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "line down" SYSTEM::%SET-DOCUMENTATION
  653.    #Y(LINE-DOWN #15Y(01 00 00 00 00 02 A8 2E 00 A8 D6 2F 02 19 02) UNDO3 1. SCROLL-SCREEN)
  654.   )
  655. #Y(#:TOP-LEVEL-FORM-68 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SET-MARK-FN
  656.    SYSTEM::REMOVE-OLD-DEFINITIONS
  657.    #Y(SET-MARK-FN
  658.       #29Y(01 00 00 00 00 02 00 2A 01 D5 AA 32 02 33 0B 00 00 98 2A 01 A7 2B 01 01 0B 00 00 19 04)
  659.       2.
  660.       #Y(SET-MARK-FN-SET-MARK
  661.          #110Y(01 00 02 00 00 0D 29 2A 01 7B 04 00 00 3A 03 0B 64 00 00 D6 A8 D7 31 2A 16 01 F9 3A
  662.                02 0B 64 00 00 D6 A8 D8 31 2A 16 01 F8 64 00 00 D6 A8 D9 7D 2A 00 65 01 01 6F 01 01
  663.                8E 00 2D 99 2A 02 99 56 0B 00 00 99 57 0B 00 01 A7 2B 06 01 16 01 F6 2E 07 64 00 00
  664.                D6 A8 D9 7D 2A 00 65 01 01 AC 9D 76 A9 A9 A9 32 01 02 19 08 A8 2B 05 01 1A 60
  665.               )
  666.          NIL SCREEN 2. 3. 5.
  667.          #Y(SET-MARK-FN-SET-MARK-1
  668.             #26Y(00 00 00 00 00 01 65 00 01 D6 A8 D7 7D 2A 00 65 02 01 A8 A8 5F 32 01 02 19 03) NIL
  669.             SCREEN 5.
  670.            )
  671.          #Y(SET-MARK-FN-SET-MARK-2
  672.             #21Y(00 00 00 00 00 01 65 01 01 65 00 01 65 00 02 07 02 01 33 19 01) NIL
  673.            )
  674.          UNDO2
  675.   )  )  )
  676. #Y(#:TOP-LEVEL-FORM-69 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SET-MARK-DOC
  677.    SYSTEM::REMOVE-OLD-DEFINITIONS
  678.    #Y(SET-MARK-DOC #14Y(01 00 00 00 00 02 5F D5 AA 2C 03 01 19 02) "set mark ~D" FORMAT)
  679.   )
  680. #Y(#:TOP-LEVEL-FORM-70 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) CURSOR-TO-MARK-FN
  681.    SYSTEM::REMOVE-OLD-DEFINITIONS
  682.    #Y(CURSOR-TO-MARK-FN #23Y(01 00 00 00 00 02 00 2A 01 D5 AA 32 02 33 0B 00 00 A7 2B 01 01 19 03)
  683.       2.
  684.       #Y(CURSOR-TO-MARK-FN-1
  685.          #35Y(01 00 00 00 00 02 A8 2E 01 D7 A9 D8 6E 2A 65 00 01 6F 01 01 98 1E 0A A9 90 01 91 02
  686.               2C 03 04 19 03 19 03
  687.              )
  688.          NIL UNDO3 SCREEN 5. SET-CURSOR
  689.   )  )  )
  690. #Y(#:TOP-LEVEL-FORM-71 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) CURSOR-TO-MARK-DOC
  691.    SYSTEM::REMOVE-OLD-DEFINITIONS
  692.    #Y(CURSOR-TO-MARK-DOC #14Y(01 00 00 00 00 02 5F D5 AA 2C 03 01 19 02) "cursor to mark ~D" FORMAT
  693.   )  )
  694. #Y(#:TOP-LEVEL-FORM-72
  695.    #28Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 6D 4C 31 75 C0 19 01)
  696.    NEWLINE-AS-STRING "~S redefines the constant ~S. Its old value was ~S."
  697.    (DEFCONSTANT NEWLINE-AS-STRING (STRING #\Newline)) WARN #\Newline
  698.   )
  699. #Y(#:TOP-LEVEL-FORM-73 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) REGION-TO-LINELIST
  700.    SYSTEM::REMOVE-OLD-DEFINITIONS
  701.    #Y(REGION-TO-LINELIST
  702.       #73Y(05 00 00 00 00 06 D5 AD D6 6E 2A 5F AD AC 88 FE 10 A8 AE 6F 01 01 AD 37 01 6E 3F 80 00
  703.            92 06 1A 13 A8 AE 6F 01 01 9E 1A 18 A9 A8 6F 01 01 6E 40 80 01 81 00 A7 AD 89 FE 70 16
  704.            01 A8 AC 6F 01 01 C2 14 AC 6E 3F 99 58 19 08
  705.           )
  706.       SCREEN 1. 0.
  707.   )  )
  708. #Y(#:TOP-LEVEL-FORM-74 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) STRING-TO-LINELIST
  709.    SYSTEM::REMOVE-OLD-DEFINITIONS
  710.    #Y(STRING-TO-LINELIST
  711.       #85Y(01 00 00 00 00 02 D5 A9 37 06 6E 59 8F 00 0D A7 37 05 C1 F9 AF D7 6D 19 77 01 1A 16 A9
  712.            5C 01 19 03 A9 A8 6F 01 34 37 05 C1 F9 B1 AE 6D 19 80 01 16 01 92 01 D5 AC 37 06 A0 FA
  713.            7D 59 02 1B 62 AB 6E 41 A8 6F 01 34 37 05 C1 F9 B1 AE 6D 19 80 01 16 01 15 19 03
  714.           )
  715.       #\Newline STRING-CHAR 0.
  716.   )  )
  717. #Y(#:TOP-LEVEL-FORM-75 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  718.    DELETE-CHAR SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "delete character at cursor"
  719.    SYSTEM::%SET-DOCUMENTATION
  720.    #Y(DELETE-CHAR
  721.       #115Y(01 00 00 00 00 02 00 2A 01 7B 02 00 00 14 D5 A8 D6 7D 2A 00 64 01 00 D5 A8 D7 7D 2A 00
  722.             64 02 00 D5 A8 D8 7D 2A 00 A9 A9 6F 01 01 A7 6E 41 A9 A8 88 FE 3D 9D 2A 01 A9 AB 32 01
  723.             01 0B 00 00 A7 2B 04 01 F6 2E 05 A8 A9 AB 37 03 AF 7D 89 01 31 47 A8 6D 14 6E 8A A9 A8
  724.             30 15 16 01 64 05 00 AB 92 04 AD AD 2C 05 06 64 05 00 AB AB 2C 03 07 19 08 00 19 08
  725.            )
  726.       SCREEN 1. 2. 3.
  727.       #Y(DELETE-CHAR-1 #21Y(00 00 00 00 00 01 65 01 01 65 00 01 2F 01 65 01 01 2E 02 19 01) NIL
  728.          INSERT-CHAR CURSOR-LEFT
  729.         )
  730.       UNDO2 UPDATE-MARKS REFRESH-LINE
  731.   )  )
  732. #Y(#:TOP-LEVEL-FORM-76 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  733.    COMBINE-LINES SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "combine two lines"
  734.    SYSTEM::%SET-DOCUMENTATION
  735.    #Y(COMBINE-LINES
  736.       #158Y(01 00 00 00 00 02 00 2A 01 7B 02 00 00 98 2A 02 64 01 00 D5 A8 D6 7D 2A 00 64 02 00 D5
  737.             A8 D7 31 2A 16 01 0B 01 00 14 6E 89 A8 64 03 00 6F 01 01 A7 31 41 0B 03 01 A8 AA 6E 41
  738.             88 FE 80 5D 9B 2A 01 64 05 00 D5 A8 D8 31 2A 16 01 0B 00 00 A7 2B 04 01 F6 2E 05 A9 A9
  739.             6F 01 01 A8 64 05 01 A9 6E 41 6F 02 33 2F 06 A8 A8 64 06 01 37 03 31 47 16 01 A9 AA AA
  740.             37 03 AE 7D 89 01 31 47 A9 D6 2F 07 64 04 00 A9 DD 64 06 00 64 07 01 2C 05 09 64 04 00
  741.             64 04 00 AA D6 2C 04 0A 19 07 00 19 07
  742.            )
  743.       SCREEN 1. 2. 3.
  744.       #Y(COMBINE-LINES-1
  745.          #37Y(00 00 00 00 00 01 65 02 01 65 01 01 65 01 02 2C 03 01 65 02 01 2E 02 65 02 01 65 01
  746.               01 65 00 01 2C 03 01 19 01
  747.              )
  748.          NIL SET-CURSOR INSERT-LINE
  749.         )
  750.       UNDO2 RESIZE-ARRAY SHRINK-ARRAY 0. UPDATE-MARKS REFRESH-SCREEN
  751.   )  )
  752. #Y(#:TOP-LEVEL-FORM-77 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  753.    DELETE-CHAR-1 SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "delete character at cursor, across lines"
  754.    SYSTEM::%SET-DOCUMENTATION
  755.    #Y(DELETE-CHAR-1 #18Y(01 00 00 00 00 02 A8 2E 00 1D 05 A8 2E 01 19 02 19 02) DELETE-CHAR
  756.       COMBINE-LINES
  757.   )  )
  758. #Y(#:TOP-LEVEL-FORM-78 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  759.    BACKSPACE SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "delete character before cursor"
  760.    SYSTEM::%SET-DOCUMENTATION
  761.    #Y(BACKSPACE
  762.       #27Y(01 00 00 00 00 02 D5 A9 D6 6E 2A 31 85 1E 0A A8 2E 02 1E 05 A8 2E 03 19 02 19 02) SCREEN
  763.       3. CURSOR-LEFT DELETE-CHAR
  764.   )  )
  765. #Y(#:TOP-LEVEL-FORM-79 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  766.    BACKSPACE-1 SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION
  767.    "delete character before cursor, across lines" SYSTEM::%SET-DOCUMENTATION
  768.    #Y(BACKSPACE-1 #18Y(01 00 00 00 00 02 A8 2E 00 1E 05 A8 2E 01 19 02 19 02) CURSOR-LEFT
  769.       DELETE-CHAR-1
  770.   )  )
  771. #Y(#:TOP-LEVEL-FORM-80 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DELETE-REGION
  772.    SYSTEM::REMOVE-OLD-DEFINITIONS
  773.    #Y(DELETE-REGION
  774.       #237Y(05 00 00 00 00 06 00 2A 03 7B 06 00 00 7B 05 00 01 7B 04 00 02 64 00 00 D5 A8 D6 7D 2A
  775.             00 64 01 00 2E 02 99 2A 01 64 02 00 64 03 01 64 04 02 AF AF 2C 05 03 0B 00 00 A7 2B 04
  776.             01 F6 2E 05 64 01 01 AC 88 FE 80 66 A7 64 02 01 6F 01 01 A8 AD 6F 01 01 64 03 02 A8 6E
  777.             41 AE 6F 01 34 6F 02 33 A9 A8 2F 08 A9 A9 64 06 02 37 03 A4 F7 31 47 AA AB 64 06 01 6E
  778.             89 37 03 B4 7D 89 01 31 47 AA AF 64 06 01 6F 01 34 2F 09 64 04 00 AF AF 64 07 01 64 08
  779.             02 2C 05 06 64 04 00 64 05 01 64 06 01 6E 89 B1 64 08 01 6F 01 34 2C 04 0A 19 0B A7 64
  780.             02 01 6F 01 01 A7 A8 64 04 02 37 03 A2 F7 31 47 A7 6D 14 AC 64 04 02 6F 01 34 6F 01 34
  781.             A8 A8 30 15 16 01 64 02 00 AD AD 64 05 01 64 06 02 2C 05 06 64 02 00 64 03 01 64 04 02
  782.             2C 03 07 19 09
  783.            )
  784.       SCREEN 1. UNDO3 REGION-TO-LINELIST
  785.       #Y(DELETE-REGION-1
  786.          #28Y(00 00 00 00 00 01 65 01 01 65 01 02 65 01 03 2C 03 01 65 01 01 65 00 01 2F 02 19 01)
  787.          NIL SET-CURSOR INSERT-LINELIST
  788.         )
  789.       UNDO2 UPDATE-MARKS REFRESH-LINE RESIZE-ARRAY SHRINK-ARRAY REFRESH-SCREEN
  790.   )  )
  791. #Y(#:TOP-LEVEL-FORM-81 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  792.    DELETE-LINE SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "delete line" SYSTEM::%SET-DOCUMENTATION
  793.    #Y(DELETE-LINE
  794.       #50Y(01 00 00 00 00 02 D5 A9 D6 6E 2A D5 AA D7 6E 2A A7 A9 6E 41 6E 8A 88 FE 0C AA A8 D8 92
  795.            03 C3 14 2C 05 04 19 04 AA A8 D8 AA AC AC 6F 01 01 31 41 1A 6D
  796.           )
  797.       SCREEN 1. 2. 0. DELETE-REGION
  798.   )  )
  799. #Y(#:TOP-LEVEL-FORM-82 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  800.    CLEAR-START-OF-LINE SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION
  801.    "delete part of line left to the cursor" SYSTEM::%SET-DOCUMENTATION
  802.    #Y(CLEAR-START-OF-LINE
  803.       #26Y(01 00 00 00 00 02 D5 A9 D6 6E 2A D5 AA D7 6E 2A AA A9 D8 AB AB 2C 05 04 19 04) SCREEN 2.
  804.       3. 0. DELETE-REGION
  805.   )  )
  806. #Y(#:TOP-LEVEL-FORM-83 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  807.    CLEAR-END-OF-LINE SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "delete up to end of line"
  808.    SYSTEM::%SET-DOCUMENTATION
  809.    #Y(CLEAR-END-OF-LINE
  810.       #37Y(01 00 00 00 00 02 D5 A9 D6 6E 2A D5 AA D7 6E 2A D5 AB D8 6E 2A AB A9 A9 AB AD AD 6F 01
  811.            01 6E 41 2C 05 04 19 05
  812.           )
  813.       SCREEN 1. 2. 3. DELETE-REGION
  814.   )  )
  815. #Y(#:TOP-LEVEL-FORM-84 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) INSERT-CHAR
  816.    SYSTEM::REMOVE-OLD-DEFINITIONS
  817.    #Y(INSERT-CHAR
  818.       #94Y(02 00 00 00 00 03 00 2A 01 7B 03 00 00 14 D5 A8 D6 7D 2A 00 64 01 00 D5 A8 D7 7D 2A 00
  819.            64 02 00 D5 A8 D8 7D 2A 00 A9 A9 6F 01 01 A7 6E 41 AC 69 04 01 2E 05 A8 92 01 2F 06 A8
  820.            A9 92 04 37 03 A0 F7 31 47 A8 AA B0 32 01 02 64 05 00 AB AB AD 92 06 2C 05 07 64 05 00
  821.            AB AB 2C 03 08 19 09
  822.           )
  823.       SCREEN 1. 2. 3. #Y(INSERT-CHAR-1 #13Y(00 00 00 00 00 01 65 00 01 2E 01 19 01) NIL BACKSPACE)
  824.       UNDO2 RESIZE-ARRAY UPDATE-MARKS REFRESH-LINE
  825.   )  )
  826. #Y(#:TOP-LEVEL-FORM-85 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  827.    INSERT-LINE SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "begin new line at cursor"
  828.    SYSTEM::%SET-DOCUMENTATION
  829.    #Y(INSERT-LINE
  830.       #120Y(01 00 00 00 00 02 00 2A 01 7B 02 00 00 14 D5 A8 D6 7D 2A 00 64 01 00 D5 A8 D7 7D 2A 00
  831.             92 00 64 03 00 D5 A8 D8 7D 2A 00 AA AA 6F 01 01 AC 69 04 01 2E 05 A7 6E 41 A9 6F 01 34
  832.             6B 06 A7 A9 37 04 A0 F7 31 47 A8 AA 30 15 AC AD 6E 41 6E 89 2F 07 AC AD 92 05 37 03 A1
  833.             F7 31 47 AC AB A9 32 01 02 16 01 64 05 00 AB AA AC DD 2C 05 09 64 05 00 AB 92 04 DF 2C
  834.             04 0B 19 08
  835.            )
  836.       SCREEN 1. 2. 3.
  837.       #Y(INSERT-LINE-1 #13Y(00 00 00 00 00 01 65 00 01 2E 01 19 01) NIL BACKSPACE-1) UNDO2
  838.       GET-NEW-LINE RESIZE-ARRAY 0. UPDATE-MARKS -1. REFRESH-SCREEN
  839.   )  )
  840. #Y(#:TOP-LEVEL-FORM-86 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) INSERT-LINELIST
  841.    SYSTEM::REMOVE-OLD-DEFINITIONS
  842.    #Y(INSERT-LINELIST
  843.       #369Y(02 00 00 00 00 03 00 2A 01 7B 03 00 00 98 2A 02 64 01 00 D5 A8 D6 7D 2A 00 64 02 00 D5
  844.             A8 D7 31 2A 16 01 0B 01 00 64 02 00 D5 A8 D8 31 2A 16 01 0B 01 01 8F 04 80 76 9C 57 1C
  845.             80 74 99 2A 01 AC 6E 41 6E 8A 64 03 00 A8 32 02 33 0B 01 00 A9 AA 6E 41 A9 6F 02 33 2F
  846.             04 A9 AA 64 03 00 6E 89 37 03 64 09 00 7D 89 01 31 47 99 2A 01 AA 64 05 00 6F 01 01 64
  847.             03 00 90 09 7F 0A A7 31 41 0B 03 00 14 AA 6E 41 64 09 01 6F 01 34 6F 02 33 6B 09 A7 A9
  848.             37 04 31 47 A7 AB 64 06 00 37 03 06 0E 01 F7 31 47 AE AA A9 32 01 02 16 01 1A 80 7B 02
  849.             19 06 99 2A 01 A8 64 03 00 6F 01 01 90 06 A7 6E 41 64 05 01 A8 32 02 33 0B 03 00 A9 AA
  850.             6E 41 A9 6F 02 33 2F 04 A9 AA 64 05 00 37 03 06 0B 01 F7 31 47 A9 A9 64 07 01 37 03 31
  851.             47 64 06 00 64 06 00 64 07 01 64 08 00 64 07 00 2C 05 05 AA 69 06 01 2E 07 64 06 00 64
  852.             06 00 64 07 01 2C 03 08 19 0A 82 01 90 0A 7F 0B A7 6E 41 6B 09 A7 A9 37 04 31 47 AF AB
  853.             A9 32 01 02 16 02 A2 57 1B 63 90 0A AA 64 09 01 A9 6E 41 6F 02 33 2F 04 AA A8 64 0A 01
  854.             37 03 31 47 16 01 64 08 00 64 08 00 64 09 01 64 08 00 64 07 00 2C 05 05 AA 69 0A 01 2E
  855.             07 64 08 00 64 08 00 64 07 00 6E 89 AE 6F 00 34 2C 04 0B 19 0C
  856.            )
  857.       SCREEN 1. 2. 3. RESIZE-ARRAY UPDATE-MARKS
  858.       #Y(INSERT-LINELIST-1
  859.          #26Y(00 00 00 00 00 01 65 02 01 65 01 01 65 01 02 65 01 01 65 00 01 2C 05 01 19 01) NIL
  860.          DELETE-REGION
  861.         )
  862.       UNDO2 REFRESH-LINE GET-NEW-LINE
  863.       #Y(INSERT-LINELIST-2
  864.          #26Y(00 00 00 00 00 01 65 03 01 65 02 01 65 02 02 65 01 01 65 00 01 2C 05 01 19 01) NIL
  865.          DELETE-REGION
  866.         )
  867.       REFRESH-SCREEN
  868.   )  )
  869. #Y(#:TOP-LEVEL-FORM-87 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) INSERT-STRING
  870.    SYSTEM::REMOVE-OLD-DEFINITIONS
  871.    #Y(INSERT-STRING #14Y(02 00 00 00 00 03 A9 A9 6B 00 2F 01 19 03) STRING-TO-LINELIST
  872.       INSERT-LINELIST
  873.   )  )
  874. #Y(#:TOP-LEVEL-FORM-88 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) WRITE-REGION
  875.    SYSTEM::REMOVE-OLD-DEFINITIONS
  876.    #Y(WRITE-REGION
  877.       #75Y(06 00 00 00 00 00 D5 AE D6 6E 2A AD AC 88 FE 0F A7 AE 6F 01 01 AA AE 37 01 30 8A 92 06
  878.            1A 15 A7 AE 6F 01 01 AA AE 1A 1B A8 A8 6F 01 01 AB 37 02 30 8A 81 00 A7 AD 89 FE 6F 16
  879.            01 A7 AC 6F 01 01 AA 37 01 AD 30 89 16 01 02 19 07
  880.           )
  881.       SCREEN 1.
  882.   )  )
  883. #Y(#:TOP-LEVEL-FORM-89 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) INSERT-STREAM
  884.    SYSTEM::REMOVE-OLD-DEFINITIONS
  885.    #Y(INSERT-STREAM
  886.       #40Y(02 00 00 00 00 03 A9 5F AA 5F D5 37 01 30 77 41 02 A8 24 00 09 D6 80 02 16 02 2F 02 19
  887.            03 A8 80 02 8E 00 74 16 02 1A 60
  888.           )
  889.       "EOF" "" INSERT-LINELIST
  890.   )  )
  891. #Y(#:TOP-LEVEL-FORM-90 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  892.    CURSOR-TO-START-OF-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "cursor to start of block"
  893.    SYSTEM::%SET-DOCUMENTATION
  894.    #Y(CURSOR-TO-START-OF-BLOCK
  895.       #42Y(01 00 00 00 00 02 D5 A9 D6 6E 2A A7 D7 6F 01 01 A8 D8 6F 01 01 99 1E 10 98 1E 0D AB 2E
  896.            04 AB 90 02 91 03 2C 03 05 19 05 19 05
  897.           )
  898.       SCREEN 5. 0. 1. UNDO3 SET-CURSOR
  899.   )  )
  900. #Y(#:TOP-LEVEL-FORM-91 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  901.    CURSOR-TO-END-OF-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "cursor to end of block"
  902.    SYSTEM::%SET-DOCUMENTATION
  903.    #Y(CURSOR-TO-END-OF-BLOCK
  904.       #42Y(01 00 00 00 00 02 D5 A9 D6 6E 2A A7 D7 6F 01 01 A8 D8 6F 01 01 99 1E 10 98 1E 0D AB 2E
  905.            04 AB 90 01 91 02 2C 03 05 19 05 19 05
  906.           )
  907.       SCREEN 5. 0. 1. UNDO3 SET-CURSOR
  908.   )  )
  909. #Y(#:TOP-LEVEL-FORM-92 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  910.    SET-BLOCK-START SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "set block start"
  911.    SYSTEM::%SET-DOCUMENTATION
  912.    #Y(SET-BLOCK-START
  913.       #137Y(01 00 02 00 00 0D 3A 02 06 D5 AB D6 7D 2A 02 3A 01 06 D5 AB D7 7D 2A 01 AA 2E 03 D5 AB
  914.             D9 6E 2A A7 DA 6F 01 01 A8 DB 6F 01 01 8F 00 01 56 14 8F 01 01 57 14 8E 03 80 49 9F 14
  915.             8F 03 12 A9 B0 8C 01 2E 2A A9 B0 8D 01 2B 06 A8 AF 8C 01 30 1E D5 B1 DB 6E 2A A7 6E 41
  916.             7D 8A 03 A7 AB 6F 01 01 7D 41 02 AA 9B 76 AE DB A9 32 01 02 16 02 AF A0 76 AD DA A9 32
  917.             01 02 16 01 B0 A8 92 04 2C 03 07 19 0A 74 AF 32 01 32 1A FF B0
  918.            )
  919.       SCREEN 2. 3. UNDO-BLOCKMARKS 5. 0. 1. REFRESH-SCREEN
  920.   )  )
  921. #Y(#:TOP-LEVEL-FORM-93 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  922.    SET-BLOCK-END SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "set block end" SYSTEM::%SET-DOCUMENTATION
  923.    #Y(SET-BLOCK-END
  924.       #119Y(01 00 02 00 00 0D 3A 02 06 D5 AB D6 7D 2A 02 3A 01 06 D5 AB D7 7D 2A 01 AA 2E 03 D5 AB
  925.             D9 6E 2A A7 DA 6F 01 01 A8 DB 6F 01 01 8F 01 01 56 14 8F 02 01 57 14 8E 02 39 9F 14 8F
  926.             04 12 A9 B0 8C 01 2D 1A A9 B0 8D 01 2B 06 A8 AF 8C 01 2F 0E C5 F8 F7 14 9A 76 AD DA A9
  927.             32 01 02 16 01 AF A0 76 AD DB A9 32 01 02 16 01 B0 AA 92 02 2C 03 07 19 0A 74 AF 32 01
  928.             31 1A 41
  929.            )
  930.       SCREEN 2. 3. UNDO-BLOCKMARKS 5. 0. 1. REFRESH-SCREEN
  931.   )  )
  932. #Y(#:TOP-LEVEL-FORM-94 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  933.    HIDE-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "remove block marks"
  934.    SYSTEM::%SET-DOCUMENTATION
  935.    #Y(HIDE-BLOCK
  936.       #56Y(01 00 00 00 00 02 A8 2E 00 D6 A9 D7 6E 2A A7 D8 6F 01 01 A8 D9 6F 01 01 A9 D8 5F 32 01
  937.            02 A9 D9 5F 32 01 02 99 1E 0F 98 1E 0C AB 90 02 90 02 6E 89 2C 03 05 19 05 19 05
  938.           )
  939.       UNDO-BLOCKMARKS SCREEN 5. 0. 1. REFRESH-SCREEN
  940.   )  )
  941. #Y(#:TOP-LEVEL-FORM-95 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) UNDO-BLOCKMARKS
  942.    SYSTEM::REMOVE-OLD-DEFINITIONS
  943.    #Y(UNDO-BLOCKMARKS
  944.       #89Y(01 00 00 00 00 02 00 2A 01 7B 02 00 00 14 D5 A8 D6 7D 2A 00 A7 D7 6F 01 01 A8 D8 6F 01
  945.            01 8E 00 1F 8F 01 14 9B 2A 02 9A 56 0B 00 00 9A 57 0B 00 01 A7 2B 06 01 F6 2E 05 AA 69
  946.            07 01 2E 05 19 06 9B 2A 02 99 56 0B 00 00 99 57 0B 00 01 A7 2B 04 01 F6 2E 05 8F 01 61
  947.            1A 4B
  948.           )
  949.       SCREEN 5. 0. 1.
  950.       #Y(UNDO-BLOCKMARKS-1 #20Y(00 00 00 00 00 01 65 01 01 65 00 01 65 00 02 2C 03 01 19 01) NIL
  951.          SET-BLOCK-END
  952.         )
  953.       UNDO2
  954.       #Y(UNDO-BLOCKMARKS-2 #20Y(00 00 00 00 00 01 65 01 01 65 00 01 65 00 02 2C 03 01 19 01) NIL
  955.          SET-BLOCK-START
  956.         )
  957.       #Y(UNDO-BLOCKMARKS-3 #13Y(00 00 00 00 00 01 65 00 01 2E 01 19 01) NIL HIDE-BLOCK)
  958.   )  )
  959. #Y(#:TOP-LEVEL-FORM-96 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) MARK-REGION
  960.    SYSTEM::REMOVE-OLD-DEFINITIONS
  961.    #Y(MARK-REGION
  962.       #78Y(05 00 00 00 00 06 9C 1E 80 42 D5 AD D6 6E 2A A7 D7 6F 01 01 A8 D8 6F 01 01 AE 9F 76 AA
  963.            D7 A9 32 01 02 16 01 AC 9D 76 AA D8 A9 32 01 02 16 01 8F 01 11 8F 00 0E AE 90 02 7E 01
  964.            32 07 AC 90 01 7E 01 31 05 AF AF 92 07 2C 03 04 19 09 19 06
  965.           )
  966.       SCREEN 5. 0. 1. REFRESH-SCREEN
  967.   )  )
  968. #Y(#:TOP-LEVEL-FORM-97 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) GET-BLOCK
  969.    SYSTEM::REMOVE-OLD-DEFINITIONS
  970.    #Y(GET-BLOCK
  971.       #45Y(01 00 00 00 00 02 D5 A9 D6 6E 2A A7 D7 6F 01 01 A8 D8 6F 01 01 8F 01 03 8E 00 08 01 03
  972.            00 14 3F 04 19 05 90 01 91 02 90 02 9B 57 1A 71
  973.           )
  974.       SCREEN 5. 0. 1.
  975.   )  )
  976. #Y(#:TOP-LEVEL-FORM-98 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  977.    DELETE-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "delete block" SYSTEM::%SET-DOCUMENTATION
  978.    #Y(DELETE-BLOCK
  979.       #59Y(01 00 00 00 00 02 D5 A9 D6 6E 2A A7 D7 6F 01 01 A8 D8 6F 01 01 8F 01 20 8F 00 1D AB 2E
  980.            04 A9 D7 5F 32 01 02 A9 D8 5F 32 01 02 AB 90 02 91 03 90 03 91 04 2C 05 05 19 05 00 19
  981.            05
  982.           )
  983.       SCREEN 5. 0. 1. UNDO-BLOCKMARKS DELETE-REGION
  984.   )  )
  985. #Y(#:TOP-LEVEL-FORM-99 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  986.    MOVE-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "move block to cursor position"
  987.    SYSTEM::%SET-DOCUMENTATION
  988.    #Y(MOVE-BLOCK
  989.       #108Y(01 00 00 00 00 02 D5 A9 D6 6E 2A A7 D7 6F 01 01 A8 D8 6F 01 01 8F 01 80 50 8F 00 80 4C
  990.             90 01 91 02 90 02 91 03 AF AB AB AB AB 6A 05 04 B0 AC AC AC AC 2C 05 05 D5 B1 DB 6E 2A
  991.             D5 B2 DC 6E 2A B2 AA 2F 08 AF A9 30 A8 AF A8 30 AA AE D5 B4 DB 6E 2A 30 A8 AE D5 B4 DC
  992.             6E 2A 30 AA B2 A9 D5 B5 DB 6E 2A 6E 89 2C 03 09 19 0C 00 19 05
  993.            )
  994.       SCREEN 5. 0. 1. REGION-TO-LINELIST DELETE-REGION 2. 3. INSERT-LINELIST REFRESH-SCREEN
  995.   )  )
  996. #Y(#:TOP-LEVEL-FORM-100 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  997.    COPY-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "copy block to cursor position"
  998.    SYSTEM::%SET-DOCUMENTATION
  999.    #Y(COPY-BLOCK
  1000.       #29Y(01 00 00 00 00 02 A8 2E 00 41 04 9B 1E 0D AC AD AC AC AC AC 6A 05 01 2F 02 19 06 19 06)
  1001.       GET-BLOCK REGION-TO-LINELIST INSERT-LINELIST
  1002.   )  )
  1003. #Y(#:TOP-LEVEL-FORM-101 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 5F 30 53 C1 19 01)
  1004.    (SPECIAL *CUT-AND-PASTE-BUFFER*) *CUT-AND-PASTE-BUFFER*
  1005.   )
  1006. #Y(#:TOP-LEVEL-FORM-102 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  1007.    COPY-BLOCK-BUFFER SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "copy block into cut-and-paste buffer"
  1008.    SYSTEM::%SET-DOCUMENTATION
  1009.    #Y(COPY-BLOCK-BUFFER
  1010.       #29Y(01 00 00 00 00 02 A8 2E 00 41 04 9B 1E 0D AC AB AB AB AB 2C 05 01 0F 02 02 19 06 19 06)
  1011.       GET-BLOCK REGION-TO-LINELIST *CUT-AND-PASTE-BUFFER*
  1012.   )  )
  1013. #Y(#:TOP-LEVEL-FORM-103 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  1014.    DELETE-BLOCK-BUFFER SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION
  1015.    "yank block into cut-and-paste buffer" SYSTEM::%SET-DOCUMENTATION
  1016.    #Y(DELETE-BLOCK-BUFFER
  1017.       #69Y(01 00 00 00 00 02 D5 A9 D6 6E 2A A7 D7 6F 01 01 A8 D8 6F 01 01 99 1E 2B 98 1E 28 A9 D7
  1018.            5F 32 01 02 A9 D8 5F 32 01 02 90 01 91 02 90 02 91 03 AF AB AB AB AB 2C 05 04 0F 05 AF
  1019.            AB AB AB AB 2C 05 06 19 09 19 05
  1020.           )
  1021.       SCREEN 5. 0. 1. REGION-TO-LINELIST *CUT-AND-PASTE-BUFFER* DELETE-REGION
  1022.   )  )
  1023. #Y(#:TOP-LEVEL-FORM-104 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  1024.    PASTE-BUFFER SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "insert cut-and-paste buffer contents"
  1025.    SYSTEM::%SET-DOCUMENTATION
  1026.    #Y(PASTE-BUFFER #13Y(01 00 00 00 00 02 A8 67 00 2F 01 19 02) *CUT-AND-PASTE-BUFFER*
  1027.       INSERT-LINELIST
  1028.   )  )
  1029. #Y(#:TOP-LEVEL-FORM-105
  1030.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01) ERRORVAL
  1031.    "~S redefines the constant ~S. Its old value was ~S." (DEFCONSTANT ERRORVAL #1="ERROR") WARN #1#
  1032.   )
  1033. #Y(#:TOP-LEVEL-FORM-106 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01)
  1034.    WITH-IGNORED-ERRORS SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  1035.    #Y(WITH-IGNORED-ERRORS
  1036.       #40Y(01 00 01 00 00 08 91 02 37 01 6E 82 D5 A8 D6 D7 D8 D9 DA DB DC B0 C8 78 02 77 04 77 02
  1037.            77 02 77 01 9D 78 02 5C 03 19 05
  1038.           )
  1039.       BLOCK LET *ERROR-HANDLER* FUNCTION LAMBDA (&REST ARGS) (DECLARE (IGNORE ARGS)) RETURN-FROM
  1040.       (ERRORVAL)
  1041.   )  )
  1042. #Y(#:TOP-LEVEL-FORM-107 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01)
  1043.    WITH-TRAPPED-ERRORS SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  1044.    #Y(WITH-TRAPPED-ERRORS
  1045.       #42Y(01 00 01 00 00 08 91 02 37 01 6E 82 D5 A8 D6 D7 D8 D9 DA DB DC DD DE B2 CA 78 02 77 06
  1046.            77 02 77 02 77 01 9D 78 02 5C 03 19 05
  1047.           )
  1048.       BLOCK LET *ERROR-HANDLER* FUNCTION LAMBDA (CONTINUE ERRSTR &REST ARGS)
  1049.       (DECLARE (IGNORE CONTINUE)) (FRESH-LINE *ERROR-OUTPUT*)
  1050.       (APPLY #'FORMAT *ERROR-OUTPUT* ERRSTR ARGS) RETURN-FROM (ERRORVAL)
  1051.   )  )
  1052. #Y(#:TOP-LEVEL-FORM-108
  1053.    #31Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 37 05 C4 F9 6D 63 31 75 C0 19
  1054.         01
  1055.        )
  1056.    FULL-TABLE "~S redefines the constant ~S. Its old value was ~S."
  1057.    (DEFCONSTANT FULL-TABLE (MAKE-HASH-TABLE :TEST #'EQL)) WARN #.#'EQL
  1058.   )
  1059. #Y(#:TOP-LEVEL-FORM-109
  1060.    #31Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 37 05 C4 F9 6D 63 31 75 C0 19
  1061.         01
  1062.        )
  1063.    HALF-TABLE "~S redefines the constant ~S. Its old value was ~S."
  1064.    (DEFCONSTANT HALF-TABLE (MAKE-HASH-TABLE :TEST #'EQL)) WARN #.#'EQL
  1065.   )
  1066. #Y(#:TOP-LEVEL-FORM-110
  1067.    #31Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 37 05 C4 F9 6D 63 31 75 C0 19
  1068.         01
  1069.        )
  1070.    LINE-EDIT-TABLE "~S redefines the constant ~S. Its old value was ~S."
  1071.    (DEFCONSTANT LINE-EDIT-TABLE (MAKE-HASH-TABLE :TEST #'EQL)) WARN #.#'EQL
  1072.   )
  1073. #Y(#:TOP-LEVEL-FORM-111
  1074.    #31Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 37 05 C4 F9 6D 63 31 75 C0 19
  1075.         01
  1076.        )
  1077.    NULL-TABLE "~S redefines the constant ~S. Its old value was ~S."
  1078.    (DEFCONSTANT NULL-TABLE (MAKE-HASH-TABLE :TEST #'EQL)) WARN #.#'EQL
  1079.   )
  1080. #Y(#:TOP-LEVEL-FORM-112 #15Y(00 00 00 00 00 01 67 00 D6 A8 D7 30 65 19 02) NULL-TABLE #\Escape
  1081.    (:LEAVE)
  1082.   )
  1083. #Y(#:TOP-LEVEL-FORM-113
  1084.    #31Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 37 05 C4 F9 6D 63 31 75 C0 19
  1085.         01
  1086.        )
  1087.    CONTROL-TABLE "~S redefines the constant ~S. Its old value was ~S."
  1088.    (DEFCONSTANT CONTROL-TABLE (MAKE-HASH-TABLE :TEST #'EQL)) WARN #.#'EQL
  1089.   )
  1090. #Y(#:TOP-LEVEL-FORM-114
  1091.    #31Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 37 05 C4 F9 6D 63 31 75 C0 19
  1092.         01
  1093.        )
  1094.    DOCSTRINGS-TABLE "~S redefines the constant ~S. Its old value was ~S."
  1095.    (DEFCONSTANT DOCSTRINGS-TABLE (MAKE-HASH-TABLE :TEST #'EQL)) WARN #.#'EQL
  1096.   )
  1097. #Y(#:TOP-LEVEL-FORM-115 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BIND-KEY
  1098.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1099.    #Y(BIND-KEY
  1100.       #128Y(03 00 01 00 00 0A 3C 01 AB 8A 08 04 AB 5C 01 FA A9 8B 03 0E 8F 02 0B 8E 01 05 A9 D5 2F
  1101.             01 F7 9A 59 F8 9B 25 02 28 0E 03 1A 1F 67 04 67 05 67 06 5C 03 1A 1B 67 04 0E 06 1A 04
  1102.             67 04 0E 05 14 5C 02 1A 0C 0E 04 1A 02 0E 06 14 5C 01 1A 01 00 14 AC 5F 1A 25 83 01 00
  1103.             A9 5F 1A 0A 83 01 00 A9 A8 B0 30 65 7F 01 A8 89 92 72 16 02 8F 04 09 67 07 A8 A8 AE 30
  1104.             65 16 01 7F 01 A8 89 92 57 00 19 08
  1105.            )
  1106.       FUNCTION DOCUMENTATION
  1107.       #S(HASH-TABLE EQ (:AND-WRITABLE-NOT-MULTILINE . 34.) (:AND-WRITABLE-MULTILINE . 30.)
  1108.          (:MULTILINE . 21.) (:WRITABLE . 15.) (:ALL . 5.) (:CONTROL . 1.)
  1109.         )
  1110.       CONTROL-TABLE FULL-TABLE HALF-TABLE LINE-EDIT-TABLE DOCSTRINGS-TABLE
  1111.   )  )
  1112. #Y(#:TOP-LEVEL-FORM-116 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 5F 30 53 C1 19 01)
  1113.    (SPECIAL *EDITOR-ACTIVE*) *EDITOR-ACTIVE*
  1114.   )
  1115. #Y(#:TOP-LEVEL-FORM-117
  1116.    #26Y(00 00 00 00 00 01 D5 30 5B D6 88 50 0A D6 D7 37 07 79 04 6D 19 30 53 C1 19 01)
  1117.    (SPECIAL *EDIT-SCREENS*) *EDIT-SCREENS* 13.
  1118.   )
  1119. #Y(#:TOP-LEVEL-FORM-118
  1120.    #26Y(00 00 00 00 00 01 D5 30 5B D6 88 50 0A D6 D7 37 07 79 04 6D 19 30 53 C1 19 01)
  1121.    (SPECIAL *SCREEN-PATHS*) *SCREEN-PATHS* 13.
  1122.   )
  1123. #Y(#:TOP-LEVEL-FORM-119 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *ACTIVE-SCREEN*)
  1124.    *ACTIVE-SCREEN*
  1125.   )
  1126. #Y(#:TOP-LEVEL-FORM-120 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL ERROR-SCREEN)
  1127.    ERROR-SCREEN
  1128.   )
  1129. #Y(#:TOP-LEVEL-FORM-121 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL TRACE-SCREEN)
  1130.    TRACE-SCREEN
  1131.   )
  1132. #Y(#:TOP-LEVEL-FORM-122 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL HELP-SCREEN) HELP-SCREEN
  1133.   )
  1134. #Y(#:TOP-LEVEL-FORM-123 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL MAIN-SCREEN) MAIN-SCREEN
  1135.   )
  1136. #Y(#:TOP-LEVEL-FORM-124 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) EDIT
  1137.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1138.    #Y(EDIT
  1139.       #303Y(00 00 01 00 00 07 3A 01 0E 79 01 0E 00 1C 0C D6 9A 4F 0E 2C 1A 80 E4 0E 00 1B 74 2D 02
  1140.             10 03 50 81 03 67 03 2E 04 41 02 99 10 05 9B 10 06 67 06 DC 30 44 10 08 DE 88 50 0F 67
  1141.             0A 2D 0B 0F 09 14 A8 E1 A9 32 01 02 16 02 E2 88 50 1F 67 0A E3 E4 E5 E6 E7 E8 E9 EA EB
  1142.             EC 67 06 6F 02 33 2C 0A 0B 0F 0D 14 A8 E6 A9 32 01 02 16 02 ED 88 50 1A 67 0A E3 EE E5
  1143.             EF E7 F0 E9 F1 EB F2 2C 0A 0B 0F 18 14 A8 F3 A9 32 01 02 16 02 F4 88 50 80 40 67 0A E3
  1144.             F5 E5 EF E7 61 21 2C 06 0B 0F 1F 14 A8 61 22 A9 32 01 02 16 02 67 1F 61 23 6E 42 2F 24
  1145.             67 1F 00 2A 01 00 0B 00 00 A7 69 25 01 67 26 30 67 06 00 00 F6 6E 42 2F 24 67 1F E1 E1
  1146.             2C 03 27 61 28 88 50 03 CC 0F 28 50 38 46 29 34 A9 69 2A 01 C1 4D 29 02 10 00 8E 1D 17
  1147.             67 0A 67 28 6F 01 01 67 2B 67 28 E6 8C 01 2D FF 19 0E 2D 14 2C 03 2E 39 01 00 A0 33 00
  1148.             11 4E 09 17 1A 54 09 17 1A 50 51 67 0A 5F 61 2F A9 32 00 24 16 01 67 03 2E 30 52 12 03
  1149.             16 02 51 67 03 37 01 31 6F 52 11 19 02
  1150.            )
  1151.       *EDITOR-ACTIVE* EDITOR-ACTIVE SCREEN:MAKE-WINDOW *WINDOW* SCREEN:WINDOW-SIZE
  1152.       GLOBAL-SCREEN-HEIGHT GLOBAL-SCREEN-WIDTH #\Space BLANKS MAIN-SCREEN *EDIT-SCREENS*
  1153.       MAKE-SCREEN 0. ERROR-SCREEN :TITLE " Errors: " :HEIGHT 10. :WIDTH 50. :TOP-LIN 2. :LEFT-COL
  1154.       -53. TRACE-SCREEN " Trace: " 15. 70. 8. 3. 11. HELP-SCREEN " Key bindings " 78. 12.
  1155.       (" ==========================================================================="
  1156.        "                           K E Y   B I N D I N G S"
  1157.        " ===========================================================================" "" ""
  1158.       )
  1159.       INSERT-LINELIST
  1160.       #Y(EDIT-1 #22Y(02 00 00 00 00 03 5F D6 AB AB 6A 04 02 07 00 01 58 0C 00 01 19 03) NIL
  1161.          "~:@C~25T --> ~A" FORMAT
  1162.         )
  1163.       DOCSTRINGS-TABLE SET-CURSOR *ACTIVE-SCREEN* EDITOR
  1164.       #Y(EDIT-HANDLE-COMMAND
  1165.          #433Y(01 00 00 00 01 17 C1 4D 81 A5 9D 25 02 81 98 00 48 00 C3 0F 04 1A 81 94 C5 0F 04 1A
  1166.                81 8E C6 0F 04 1A 81 88 67 07 90 05 8D 01 01 81 7A 9C 56 0F 04 1A 81 78 67 07 90 05
  1167.                8D 01 01 81 6A 67 07 90 05 6F 01 01 6B 0A 8F 00 0A A7 67 07 37 06 CB F7 8A 59 32 CC
  1168.                1A 2F 67 07 67 04 6F 01 01 6B 0A 67 07 67 04 A8 A8 5F 32 01 02 16 02 67 0D 67 04 A8
  1169.                A8 5F 32 01 02 16 02 8F 00 0A A7 67 07 37 06 CB F7 8A 59 01 CC 0F 04 16 01 1A 81 20
  1170.                A8 A8 2F 0F 16 02 1A 81 17 67 0D 67 04 8C 01 01 0F 67 0D 67 04 2D 0E 14 A9 A9 A9 32
  1171.                01 02 16 03 67 07 67 04 6F 01 01 67 0D 67 04 6F 01 01 98 1F 4F A8 E1 E1 6A 03 10 90
  1172.                01 91 02 99 10 11 1A 08 A7 01 02 AE 30 5D 16 01 AC 5F E7 37 01 6D 74 A7 E7 89 FE 6C
  1173.                00 16 01 11 16 05 1A 80 C3 67 07 67 04 6F 01 01 2D 0E 14 2F 0F 1A 80 B4 56 1A 10 DD
  1174.                67 09 30 88 16 02 1A 80 A7 8E 05 70 E8 2E 14 14 46 15 0B A9 2B 16 01 10 17 AD 30 E4
  1175.                11 47 F6 14 23 18 5C 67 07 A8 AA 6C 19 A8 AB A9 32 01 02 16 02 67 0D A7 AA AA 32 01
  1176.                02 16 01 1A 80 5D 5F 67 07 37 06 6E 59 8E 00 41 DD 67 09 30 88 16 01 1A 80 5E 5F 67
  1177.                07 37 06 6E 59 8F 00 6C EF 5F F0 90 08 6A 03 1C F2 AA F3 F4 F5 61 21 6A 08 22 A7 9F
  1178.                57 57 57 74 2F 23 A7 2E 24 A7 E1 E1 2C 03 25 67 07 A7 AA AA 32 01 02 16 01 67 0D 9F
  1179.                57 74 A0 57 57 56 76 A8 AB A9 32 01 02 16 02 99 0F 04 16 02 1A 0E E1 67 04 D8 8C 02
  1180.                2D FE AF DD 67 09 30 88 4E 19 03 19 03
  1181.               )
  1182.          NIL HANDLE-COMMAND
  1183.          #S(HASH-TABLE EQ (:FORM . 321.) (:LOAD . 301.) (:SAVE-AS . 220.) (:SAVE . 136.)
  1184.             (:DELETE . 401.) (:HIDE . 39.) (:TOP . 23.) (:HELP . 17.) (:TRACE . 11.) (:ERROR . 5.)
  1185.             (:LEAVE . 2.)
  1186.            )
  1187.          10. *ACTIVE-SCREEN* 11. 12. *EDIT-SCREENS* #\Bell *TERMINAL-IO* HIDE-SCREEN #.#'EQ 0.
  1188.          *SCREEN-PATHS* GET-SAVE-PATH SCREEN-TO-FILE MAKE-READ-FROM-SCREEN-STREAM *PACKAGE* "EOF"
  1189.          " File to load: " LINE-EDIT #:G8910
  1190.          #Y(EDIT-HANDLE-COMMAND-1 #9Y(00 00 00 00 01 16 C1 48 00) NIL #.ERRORVAL) *ERROR-HANDLER*
  1191.          #.ERRORVAL FILE-TO-SCREEN :TITLE " ~A " FORMAT :TOP-LIN :WIDTH 78. :HEIGHT 13. MAKE-SCREEN
  1192.          INSERT-STRING INSERT-LINE SET-CURSOR
  1193.         )
  1194.       CONTROL-TABLE FULL-TABLE HALF-TABLE EDIT1
  1195.       #Y(EDIT-2 #15Y(01 00 00 00 00 02 8F 01 03 A8 2E 00 00 19 02) HIDE-SCREEN) SCREEN:CLEAR-WINDOW
  1196.   )  )
  1197. #Y(#:TOP-LEVEL-FORM-125 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) RETURN-NIL
  1198.    SYSTEM::REMOVE-OLD-DEFINITIONS #Y(RETURN-NIL #9Y(00 00 00 00 01 16 00 19 02))
  1199.   )
  1200. #Y(#:TOP-LEVEL-FORM-126 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) EDIT1
  1201.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1202.    #Y(EDIT1
  1203.       #45Y(03 00 00 00 00 04 00 2A 03 7B 04 00 00 7B 03 00 01 7B 02 00 02 64 00 00 2E 00 C1 4D 0E
  1204.            AA 69 02 01 AB 69 03 01 99 70 99 33 1A 7A 19 05
  1205.           )
  1206.       ACTIVATE-SCREEN EDIT
  1207.       #Y(EDIT1-READ-EDIT-COMMAND
  1208.          #24Y(00 00 00 00 00 01 65 00 01 2E 01 67 02 37 03 6D 78 67 03 2E 04 15 19 01) NIL
  1209.          SET-CURSOR-VISIBLE *KEYBOARD-INPUT* *WINDOW* SCREEN:WINDOW-CURSOR-OFF
  1210.         )
  1211.       #Y(EDIT1-EXECUTE-EDIT-COMMAND
  1212.          #96Y(01 00 00 00 00 02 C1 4D 80 54 AB 89 1D 0C AB D7 8D 01 0C 06 AB D8 8D 01 07 25 AB 65
  1213.               00 02 37 01 30 64 41 02 8E 00 2F AD 65 00 03 95 05 6D 64 65 00 01 35 01 1D 23 DB 67
  1214.               07 30 88 16 02 1A 1C D9 65 00 03 95 05 6D 64 65 00 01 AD 35 02 1D 0C DB 67 07 30 88
  1215.               1A 05 DD 9A 4F 16 02 4E 19 02 19 02
  1216.              )
  1217.          NIL HANDLE-COMMAND #\Space #\Rubout :STRING-CHAR RETURN-NIL #\Bell *TERMINAL-IO* EDIT
  1218.   )  )  )
  1219. #Y(#:TOP-LEVEL-FORM-127 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) GET-SAVE-PATH
  1220.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1221.    #Y(GET-SAVE-PATH
  1222.       #40Y(00 00 00 00 00 01 5F 1A 05 DB 67 07 30 88 D5 2E 01 F6 46 02 0B A9 2B 03 01 10 04 AD 30
  1223.            E4 11 47 F6 14 23 05 64 15 19 01
  1224.           )
  1225.       " Save as: " LINE-EDIT #:G9224
  1226.       #Y(GET-SAVE-PATH-1 #9Y(00 00 00 00 01 16 C1 48 00) NIL #.ERRORVAL) *ERROR-HANDLER* #.ERRORVAL
  1227.       #\Bell *TERMINAL-IO*
  1228.   )  )
  1229. #Y(#:TOP-LEVEL-FORM-128 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) LINE-EDIT
  1230.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1231.    #Y(LINE-EDIT
  1232.       #56Y(01 00 01 00 00 08 3A 01 02 C0 F7 D6 D7 D8 D9 DA AE 6A 06 06 A7 AA 2F 07 A7 67 08 67 09
  1233.            6A 03 0A A8 2E 0B 90 00 23 0C 0D E3 A9 D7 6E 2A E4 6F 01 01 31 40 19 05 E2 00 4F
  1234.           )
  1235.       "" :HEIGHT 1. :WIDTH 40. :TITLE MAKE-SCREEN INSERT-STRING NULL-TABLE LINE-EDIT-TABLE EDIT1
  1236.       HIDE-SCREEN :LEAVE HANDLE-COMMAND SCREEN 0.
  1237.   )  )
  1238. #Y(#:TOP-LEVEL-FORM-129 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) FILE-TO-SCREEN
  1239.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1240.    #Y(FILE-TO-SCREEN
  1241.       #80Y(02 00 00 00 00 03 D5 5F D6 AC 37 01 6D EF 6A 03 02 D8 AB D9 DA DB DC 6A 08 08 AA 89 F3
  1242.            2F AA DE 37 03 6D F6 50 15 AA AA 2F 0A 8F 02 05 14 37 01 31 6F 3D 51 05 00 00 1C 0B 1A
  1243.            05 05 00 00 1C 04 14 60 31 6F 52 16 01 A7 E0 E0 2C 03 0C 15 19 03
  1244.           )
  1245.       :TITLE " ~A " FORMAT :TOP-LIN :WIDTH 78. :HEIGHT 13. MAKE-SCREEN :INPUT INSERT-STREAM 0.
  1246.       SET-CURSOR
  1247.   )  )
  1248. #Y(#:TOP-LEVEL-FORM-130 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SCREEN-TO-FILE
  1249.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1250.    #Y(SCREEN-TO-FILE
  1251.       #73Y(02 00 00 00 00 03 D5 AA D6 6E 2A A7 6E 41 6E 8A AA D7 37 03 C3 F7 6D F6 50 20 AE D9 D9
  1252.            AD AF AF 6F 01 01 6E 41 AE 2C 06 05 8F 02 05 14 37 01 31 6F 3D 51 05 00 00 1C 0B 1A 05
  1253.            05 00 00 1C 04 14 60 31 6F 52 16 03 02 19 03
  1254.           )
  1255.       SCREEN 1. :OUTPUT :RENAME 0. WRITE-REGION
  1256.   )  )
  1257. #Y(#:TOP-LEVEL-FORM-131 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) FINISH
  1258.    SYSTEM::REMOVE-OLD-DEFINITIONS #Y(FINISH #9Y(01 00 00 00 00 02 D5 C1 4F) EDIT (:FINISH))
  1259.   )
  1260. #Y(#:TOP-LEVEL-FORM-132 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  1261.    MAKE-READ-FROM-SCREEN-STREAM SYSTEM::REMOVE-OLD-DEFINITIONS
  1262.    #Y(MAKE-READ-FROM-SCREEN-STREAM
  1263.       #112Y(03 00 02 00 00 0F 00 2A 04 7B 05 00 00 7B 04 00 01 3A 03 01 00 0B 00 02 3A 02 01 00 0B
  1264.             00 03 98 2A 01 D5 AF D6 31 2A 0B 00 00 06 01 02 1C 30 06 01 03 1B 0E 64 00 00 64 02 02
  1265.             6F 01 01 31 41 0B 01 03 98 2A 03 00 0B 00 00 0B 00 01 A7 69 02 01 5F 2F 03 0B 00 02 14
  1266.             A8 69 04 01 3F 02 19 09 64 00 00 6E 41 31 8A 0B 01 02 06 01 03 1C 46 1A 52
  1267.            )
  1268.       SCREEN 1.
  1269.       #Y(MAKE-READ-FROM-SCREEN-STREAM-1
  1270.          #102Y(00 00 00 00 00 01 65 02 01 65 02 03 8C 01 2E 80 40 65 02 01 65 02 03 8D 01 2B 0A 65
  1271.                02 02 65 02 04 8C 01 30 2C 65 01 01 65 02 01 6F 01 01 07 02 01 0C 00 01 07 02 02 0C
  1272.                00 02 14 A8 6E 41 8C 01 30 12 A7 65 02 02 A9 31 41 0C 02 02 14 3F 03 19 02 00 19 01
  1273.                65 02 01 31 89 0C 02 01 C1 0C 02 02 67 02 D6 C3 1A 66
  1274.               )
  1275.          NIL 0. NEWLINE-AS-STRING 1.
  1276.         )
  1277.       MAKE-BUFFERED-INPUT-STREAM
  1278.       #Y(MAKE-READ-FROM-SCREEN-STREAM-2
  1279.          #38Y(00 00 00 00 00 01 65 00 03 6B 01 A7 23 02 0F 65 02 01 A8 65 02 02 32 01 32 14 3F 02
  1280.               19 02 65 00 01 07 00 02 1A 73
  1281.              )
  1282.          NIL SYSTEM::BUFFERED-INPUT-STREAM-INDEX 0.
  1283.   )  )  )
  1284. #Y(#:TOP-LEVEL-FORM-133 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  1285.    MAKE-WRITE-TO-SCREEN-STREAM SYSTEM::REMOVE-OLD-DEFINITIONS
  1286.    #Y(MAKE-WRITE-TO-SCREEN-STREAM
  1287.       #30Y(01 00 00 00 00 02 00 2A 01 7B 02 00 00 A7 69 00 01 64 01 00 D6 A8 D7 7D 2A 00 2F 03 19
  1288.            03
  1289.           )
  1290.       #Y(MAKE-WRITE-TO-SCREEN-STREAM-1 #14Y(01 00 00 00 00 02 65 00 01 A9 2F 01 19 02) NIL
  1291.          INSERT-STRING
  1292.         )
  1293.       SCREEN 3. MAKE-BUFFERED-OUTPUT-STREAM
  1294.   )  )
  1295. #Y(#:TOP-LEVEL-FORM-134 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01)
  1296.    MAKE-WRITE-TO-SCREEN-STREAM-WITH-FLAG SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  1297.    #Y(MAKE-WRITE-TO-SCREEN-STREAM-WITH-FLAG
  1298.       #86Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2C 80 42 9A 57 74 9B 57 57 74 37 01 6E 82 37 01 6E
  1299.            82 D7 A8 AC 77 02 77 01 D8 AA 77 02 D9 DA DB AE 77 01 DC AF B1 77 03 DD DE DF B3 77 02
  1300.            77 02 E0 B4 CC 78 02 77 03 77 04 77 02 E2 AD 77 02 77 03 5C 04 19 07 A9 2E 01 19 03
  1301.           )
  1302.       3. SYSTEM::MACRO-CALL-ERROR LET CURSOR-TO-END-OF-TEXT MAKE-BUFFERED-OUTPUT-STREAM FUNCTION
  1303.       LAMBDA INSERT-STRING WHEN PLUSP LENGTH SETQ (T) SCREEN-COL
  1304.   )  )
  1305. #Y(#:TOP-LEVEL-FORM-135 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) EVAL-REGION
  1306.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1307.    #Y(EVAL-REGION
  1308.       #207Y(05 00 00 00 00 06 8F 04 80 7B 00 2A 02 00 0B 00 00 0B 00 01 AD AD AD AD AD 6A 05 00 67
  1309.             01 2E 02 10 03 9C 2A 01 0E 04 0B 00 00 14 2E 05 A7 69 06 01 64 01 00 DC A8 DD 7D 2A 00
  1310.             2F 09 16 01 10 0A 9F 2A 01 0E 0B 0B 00 00 14 2E 05 A7 69 0C 01 64 01 00 DC A8 DD 7D 2A
  1311.             00 2F 09 16 01 10 0D 46 0E 0F A9 2B 0F 01 10 10 B6 37 03 6D 74 30 5C 11 47 42 14 B1 37
  1312.             01 31 6F 8F 00 2E 06 0B 00 1B 29 37 01 30 8C 1A 18 00 19 06 E8 D4 4F E8 03 15 4F E6 37
  1313.             01 30 88 E7 37 01 30 88 37 01 30 8B 90 00 7F 01 37 01 30 81 8E 00 67 37 01 30 8C 67 03
  1314.             37 01 31 6F 67 0A 37 01 31 6F 67 0D 37 01 31 6F 06 0B 00 1B 45 06 0B 01 1B 43 02 16 01
  1315.             12 03 19 08
  1316.            )
  1317.       MAKE-READ-FROM-SCREEN-STREAM MAIN-SCREEN MAKE-WRITE-TO-SCREEN-STREAM *STANDARD-OUTPUT*
  1318.       ERROR-SCREEN CURSOR-TO-END-OF-TEXT
  1319.       #Y(EVAL-REGION-1
  1320.          #27Y(01 00 00 00 00 02 65 00 01 A9 2F 01 A8 6E 41 8A 85 03 00 19 02 02 0C 01 01 19 02) NIL
  1321.          INSERT-STRING
  1322.         )
  1323.       SCREEN 3. MAKE-BUFFERED-OUTPUT-STREAM *ERROR-OUTPUT* TRACE-SCREEN
  1324.       #Y(EVAL-REGION-2
  1325.          #27Y(01 00 00 00 00 02 65 00 01 A9 2F 01 A8 6E 41 8A 85 03 00 19 02 02 0C 01 02 19 02) NIL
  1326.          INSERT-STRING
  1327.         )
  1328.       *TRACE-OUTPUT* #:G9506
  1329.       #Y(EVAL-REGION-3 #21Y(02 00 00 00 01 18 67 01 30 8C 95 02 67 01 AB 9C 36 02 C3 48 00) NIL
  1330.          *ERROR-OUTPUT* FORMAT #.ERRORVAL
  1331.         )
  1332.       *ERROR-HANDLER* #\Space #\; EDIT (:ERROR) (:TRACE)
  1333.   )  )
  1334. #Y(#:TOP-LEVEL-FORM-136 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  1335.    EVAL-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "evaluate block contents"
  1336.    SYSTEM::%SET-DOCUMENTATION
  1337.    #Y(EVAL-BLOCK #19Y(01 00 00 00 00 02 94 00 44 A9 63 00 01 2E 01 40 45 19 02) EVAL-REGION
  1338.       GET-BLOCK
  1339.   )  )
  1340. #Y(#:TOP-LEVEL-FORM-137 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) GET-WHITESPACE-RIGHT
  1341.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1342.    #Y(GET-WHITESPACE-RIGHT
  1343.       #79Y(01 00 02 00 00 0D 3A 02 06 D5 AB D6 7D 2A 02 3A 01 06 D5 AB D7 7D 2A 01 D5 AB D8 6E 2A
  1344.            A7 6E 41 6E 8A A8 AC 6F 01 01 D9 A8 37 05 A3 F9 DA 6E 59 8E 00 13 16 01 AC A9 88 FE 12
  1345.            81 05 C6 FA A9 AD 7E 01 01 00 1A 61 AD A8 3F 02 19 08 00 19 07
  1346.           )
  1347.       SCREEN 2. 3. 1. #\Space #.#'EQL 0.
  1348.   )  )
  1349. #Y(#:TOP-LEVEL-FORM-138 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  1350.    SKIP-WHITESPACE-RIGHT SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "skip whitespace right"
  1351.    SYSTEM::%SET-DOCUMENTATION
  1352.    #Y(SKIP-WHITESPACE-RIGHT
  1353.       #24Y(01 00 00 00 00 02 A8 2E 00 41 02 99 1E 08 AA A9 A9 2C 03 01 19 04 19 04)
  1354.       GET-WHITESPACE-RIGHT SET-CURSOR
  1355.   )  )
  1356. #Y(#:TOP-LEVEL-FORM-139 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) MODIFIED-READTABLE
  1357.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1358.    #Y(MODIFIED-READTABLE #19Y(00 00 00 00 00 01 37 02 6D 6D D5 D6 5F AA 30 6F 15 19 01) #\|
  1359.       #Y(MODIFIED-READTABLE-1
  1360.          #24Y(02 00 00 00 00 03 5F AA 5F 37 02 6D 7A 23 00 03 00 19 03 D6 D7 AB 5E 02) #\#
  1361.          "~S from ~S: |# is legal only after #|" READ
  1362.   )  )  )
  1363. #Y(#:TOP-LEVEL-FORM-140 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) GET-NEXT-OBJECT
  1364.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1365.    #Y(GET-NEXT-OBJECT
  1366.       #120Y(01 00 03 00 00 11 3A 03 06 D5 AC D6 7D 2A 03 3A 02 06 D5 AC D7 7D 2A 02 3A 01 03 2D 03
  1367.             F7 AB AB AB 2C 03 04 41 02 8E 01 0D 01 04 3F 04 19 07 01 04 3F 04 51 1A 38 AD A9 A9 2C
  1368.             03 05 41 02 50 2E 46 06 19 A9 2B 07 01 10 08 02 10 09 CA 10 0B 04 13 10 0C B9 60 5F 60
  1369.             30 75 12 04 47 14 23 0D 4F CE 44 AD 63 00 04 63 00 02 35 00 40 45 51 63 00 01 37 01 31
  1370.             6F 52 19 09
  1371.            )
  1372.       SCREEN 2. 3. MODIFIED-READTABLE GET-WHITESPACE-RIGHT MAKE-READ-FROM-SCREEN-STREAM #:G9741
  1373.       #Y(GET-NEXT-OBJECT-1 #9Y(00 00 00 00 01 16 C1 48 00) NIL #.ERRORVAL) *ERROR-HANDLER*
  1374.       *READ-SUPPRESS* #.MOST-POSITIVE-FIXNUM SYSTEM::*BACKQUOTE-LEVEL* *READTABLE* #.ERRORVAL
  1375.       #.#'VALUES
  1376.   )  )
  1377. #Y(#:TOP-LEVEL-FORM-141 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  1378.    MARK-NEXT-OBJECT SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "mark next Lisp object"
  1379.    SYSTEM::%SET-DOCUMENTATION
  1380.    #Y(MARK-NEXT-OBJECT #19Y(01 00 00 00 00 02 94 00 44 A9 63 00 01 2E 01 40 45 19 02) MARK-REGION
  1381.       GET-NEXT-OBJECT
  1382.   )  )
  1383. #Y(#:TOP-LEVEL-FORM-142 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) GET-TOPLEVEL-FORM
  1384.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1385.    #Y(GET-TOPLEVEL-FORM
  1386.       #203Y(01 00 00 00 00 02 D5 A9 D6 6E 2A D5 AA D7 6E 2A D5 AB D8 6E 2A A9 A9 6F 01 01 1A 16 14
  1387.             7D 89 02 16 01 1A 23 82 03 AB AB 7E 01 01 01 14 7D 41 02 16 01 D9 A8 60 37 04 A0 F8 DA
  1388.             6E 59 8E 00 5D AA 24 06 61 C6 F8 16 01 16 01 2D 07 14 A9 5F DD 1A 13 AA AA AA AA 77 04
  1389.             80 07 16 04 1A 80 5C 56 43 19 09 82 02 AD AA 6F 01 01 D9 A8 37 05 DA 6E 59 8F 00 80 46
  1390.             A8 A8 6D 32 DE 37 03 88 B3 3C A7 AA 8D 01 2F 36 98 F8 B1 AC A9 AF 2C 04 0A 41 04 8F 03
  1391.             26 14 B3 8C 01 2D 0C AA B3 8D 01 2B 1A A9 B2 8D 01 2F 14 B2 A9 8C 01 2D FF A6 B2 A9 8D
  1392.             01 2B 07 B1 A8 8C 01 2F FF 99 16 04 16 02 A9 24 06 FF A1 8E 01 FF 99 01 04 3F 04 19 09
  1393.            )
  1394.       SCREEN 1. 2. 3. #\Space #.#'EQL 0. MODIFIED-READTABLE #.MOST-POSITIVE-FIXNUM (#\; #\))
  1395.       GET-NEXT-OBJECT
  1396.   )  )
  1397. #Y(#:TOP-LEVEL-FORM-143 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  1398.    MARK-TOPLEVEL-FORM SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "mark surrounding top level form"
  1399.    SYSTEM::%SET-DOCUMENTATION
  1400.    #Y(MARK-TOPLEVEL-FORM #19Y(01 00 00 00 00 02 94 00 44 A9 63 00 01 2E 01 40 45 19 02) MARK-REGION
  1401.       GET-TOPLEVEL-FORM
  1402.   )  )
  1403. #Y(#:TOP-LEVEL-FORM-144 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  1404.    EVAL-TOPLEVEL-FORM SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "evaluate surrounding top level form"
  1405.    SYSTEM::%SET-DOCUMENTATION
  1406.    #Y(EVAL-TOPLEVEL-FORM #19Y(01 00 00 00 00 02 94 00 44 A9 63 00 01 2E 01 40 45 19 02) EVAL-REGION
  1407.       GET-TOPLEVEL-FORM
  1408.   )  )
  1409. #Y(#:TOP-LEVEL-FORM-145 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) GET-NEXT-TAB-POS
  1410.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1411.    #Y(GET-NEXT-TAB-POS
  1412.       #93Y(03 00 00 00 00 04 D5 AB D6 6E 2A A7 AB 6F 01 01 A7 6E 41 AB A8 8C 01 30 12 A8 AC 6D 32
  1413.            24 02 19 D7 A9 37 05 A3 F9 D8 31 59 1D 30 15 19 06 DA AC 6F 02 33 A8 32 01 32 19 07 A8
  1414.            AC 6D 32 23 04 6E D7 A9 37 06 A4 FA 6E 59 8F 00 0B D7 AA 37 05 9F F9 D8 31 59 1D 03 99
  1415.            19 08 19 08 19 07
  1416.           )
  1417.       SCREEN 1. #\Space #.#'EQL #\( 2.
  1418.   )  )
  1419. #Y(#:TOP-LEVEL-FORM-146 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) CURSOR-TO-COL
  1420.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1421.    #Y(CURSOR-TO-COL
  1422.       #55Y(02 00 00 00 00 03 D5 AA D6 6E 2A D5 AB D7 6E 2A A8 A8 6F 01 01 A7 6E 41 AC A8 8D 01 2E
  1423.            11 A8 AD 2F 03 A8 D9 A9 37 01 31 46 AD AA A9 2C 03 05 AD AA AE 2C 03 06 19 07
  1424.           )
  1425.       SCREEN 1. 2. RESIZE-ARRAY #\Space REFRESH-LINE SET-CURSOR
  1426.   )  )
  1427. #Y(#:TOP-LEVEL-FORM-147 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  1428.    NEXT-INDENT SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "insert spaces up to next tab stop"
  1429.    SYSTEM::%SET-DOCUMENTATION
  1430.    #Y(NEXT-INDENT
  1431.       #41Y(01 00 00 00 00 02 D5 A9 D6 6E 2A D5 AA D7 6E 2A A8 23 03 0D AA AB 93 03 AA 2C 03 05 14
  1432.            2F 04 19 04 AA D6 A9 32 02 33 1A 73
  1433.           )
  1434.       SCREEN 2. 3. 0. CURSOR-TO-COL GET-NEXT-TAB-POS
  1435.   )  )
  1436. #Y(#:TOP-LEVEL-FORM-148 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 D7 30 53 C1 19 01)
  1437.    (SPECIAL *SEARCH-STRING*) *SEARCH-STRING* ""
  1438.   )
  1439. #Y(#:TOP-LEVEL-FORM-149 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  1440.    SEARCH-FIRST SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "search for a string"
  1441.    SYSTEM::%SET-DOCUMENTATION
  1442.    #Y(SEARCH-FIRST #18Y(01 00 00 00 00 02 D5 67 01 2F 02 0F 01 A8 2E 03 19 02) " Search: "
  1443.       *SEARCH-STRING* LINE-EDIT SEARCH-NEXT
  1444.   )  )
  1445. #Y(#:TOP-LEVEL-FORM-150 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
  1446.    SEARCH-NEXT SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION "continue searching"
  1447.    SYSTEM::%SET-DOCUMENTATION
  1448.    #Y(SEARCH-NEXT
  1449.       #90Y(01 00 00 00 00 02 D5 A9 D6 6E 2A D5 AA D7 6E 2A D5 AB D8 6E 2A A9 6E 41 A8 AB AB 6F 01
  1450.            01 6E 41 8C 01 2D 22 00 14 8E 00 15 81 03 14 A9 88 FE 27 67 04 AC AC 6F 01 01 37 08 7D
  1451.            60 00 1C 6B AD AB A9 2C 03 05 19 07 67 04 AB AB 6F 01 01 37 08 B2 7D 89 05 31 60 1A 4E
  1452.            00 19 07
  1453.           )
  1454.       SCREEN 1. 2. 3. *SEARCH-STRING* SET-CURSOR
  1455.   )  )
  1456. #Y(#:TOP-LEVEL-FORM-151-1 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) C-H-DOC
  1457.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1458.    #Y(C-H-DOC #15Y(01 00 00 00 00 02 5F D5 92 03 2C 03 01 19 02) "show window ~D" FORMAT)
  1459.   )
  1460. #Y(#:TOP-LEVEL-FORM-151-2 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) M-H-DOC
  1461.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1462.    #Y(M-H-DOC #15Y(01 00 00 00 00 02 5F D5 92 03 2C 03 01 19 02) "hide window ~D" FORMAT)
  1463.   )
  1464. #Y(#:TOP-LEVEL-FORM-151-3 #18Y(00 00 00 00 00 01 D5 D6 D7 D8 6B 04 2C 04 05 3D 19 01)
  1465.    #\CONTROL-HYPER-A :CONTROL (:TOP 0.) 0. C-H-DOC BIND-KEY
  1466.   )
  1467. #Y(#:TOP-LEVEL-FORM-151-4 #18Y(00 00 00 00 00 01 D5 D6 D7 D8 6B 04 2C 04 05 3D 19 01)
  1468.    #\CONTROL-HYPER-B :CONTROL (:TOP 1.) 1. C-H-DOC BIND-KEY
  1469.   )
  1470. #Y(#:TOP-LEVEL-FORM-151-5 #18Y(00 00 00 00 00 01 D5 D6 D7 D8 6B 04 2C 04 05 3D 19 01)
  1471.    #\CONTROL-HYPER-C :CONTROL (:TOP 2.) 2. C-H-DOC BIND-KEY
  1472.   )
  1473. #Y(#:TOP-LEVEL-FORM-151-6 #18Y(00 00 00 00 00 01 D5 D6 D7 D8 6B 04 2C 04 05 3D 19 01)
  1474.    #\CONTROL-HYPER-D :CONTROL (:TOP 3.) 3. C-H-DOC BIND-KEY
  1475.   )
  1476. #Y(#:TOP-LEVEL-FORM-151-7 #18Y(00 00 00 00 00 01 D5 D6 D7 D8 6B 04 2C 04 05 3D 19 01)
  1477.    #\CONTROL-HYPER-E :CONTROL (:TOP 4.) 4. C-H-DOC BIND-KEY
  1478.   )
  1479. #Y(#:TOP-LEVEL-FORM-151-8 #18Y(00 00 00 00 00 01 D5 D6 D7 D8 6B 04 2C 04 05 3D 19 01)
  1480.    #\CONTROL-HYPER-F :CONTROL (:TOP 5.) 5. C-H-DOC BIND-KEY
  1481.   )
  1482. #Y(#:TOP-LEVEL-FORM-151-9 #18Y(00 00 00 00 00 01 D5 D6 D7 D8 6B 04 2C 04 05 3D 19 01)
  1483.    #\CONTROL-HYPER-G :CONTROL (:TOP 6.) 6. C-H-DOC BIND-KEY
  1484.   )
  1485. #Y(#:TOP-LEVEL-FORM-151-10 #18Y(00 00 00 00 00 01 D5 D6 D7 D8 6B 04 2C 04 05 3D 19 01)
  1486.    #\CONTROL-HYPER-H :CONTROL (:TOP 7.) 7. C-H-DOC BIND-KEY
  1487.   )
  1488. #Y(#:TOP-LEVEL-FORM-151-11 #18Y(00 00 00 00 00 01 D5 D6 D7 D8 6B 04 2C 04 05 3D 19 01)
  1489.    #\CONTROL-HYPER-I :CONTROL (:TOP 8.) 8. C-H-DOC BIND-KEY
  1490.   )
  1491. #Y(#:TOP-LEVEL-FORM-151-12 #18Y(00 00 00 00 00 01 D5 D6 D7 D8 6B 04 2C 04 05 3D 19 01)
  1492.    #\CONTROL-HYPER-J :CONTROL (:TOP 9.) 9. C-H-DOC BIND-KEY
  1493.   )
  1494. #Y(#:TOP-LEVEL-FORM-151-13 #16Y(00 00 00 00 00 01 D5 D6 D7 D8 2C 04 04 3D 19 01) #\META-H :CONTROL
  1495.    (:HELP) "show help window (this text)" BIND-KEY
  1496.   )
  1497. #Y(#:TOP-LEVEL-FORM-151-14 #16Y(00 00 00 00 00 01 D5 D6 D7 D8 2C 04 04 3D 19 01) #\CONTROL-E
  1498.    :CONTROL (:ERROR) "show error window" BIND-KEY
  1499.   )
  1500. #Y(#:TOP-LEVEL-FORM-151-15 #16Y(00 00 00 00 00 01 D5 D6 D7 D8 2C 04 04 3D 19 01) #\CONTROL-T
  1501.    :CONTROL (:TRACE) "show trace window" BIND-KEY
  1502.   )
  1503. #Y(#:TOP-LEVEL-FORM-151-16 #18Y(00 00 00 00 00 01 D5 D6 D7 D8 6B 04 2C 04 05 3D 19 01)
  1504.    #\META-HYPER-B :CONTROL (:HIDE 1.) 1. M-H-DOC BIND-KEY
  1505.   )
  1506. #Y(#:TOP-LEVEL-FORM-151-17 #18Y(00 00 00 00 00 01 D5 D6 D7 D8 6B 04 2C 04 05 3D 19 01)
  1507.    #\META-HYPER-C :CONTROL (:HIDE 2.) 2. M-H-DOC BIND-KEY
  1508.   )
  1509. #Y(#:TOP-LEVEL-FORM-151-18 #18Y(00 00 00 00 00 01 D5 D6 D7 D8 6B 04 2C 04 05 3D 19 01)
  1510.    #\META-HYPER-D :CONTROL (:HIDE 3.) 3. M-H-DOC BIND-KEY
  1511.   )
  1512. #Y(#:TOP-LEVEL-FORM-151-19 #18Y(00 00 00 00 00 01 D5 D6 D7 D8 6B 04 2C 04 05 3D 19 01)
  1513.    #\META-HYPER-E :CONTROL (:HIDE 4.) 4. M-H-DOC BIND-KEY
  1514.   )
  1515. #Y(#:TOP-LEVEL-FORM-151-20 #18Y(00 00 00 00 00 01 D5 D6 D7 D8 6B 04 2C 04 05 3D 19 01)
  1516.    #\META-HYPER-F :CONTROL (:HIDE 5.) 5. M-H-DOC BIND-KEY
  1517.   )
  1518. #Y(#:TOP-LEVEL-FORM-151-21 #18Y(00 00 00 00 00 01 D5 D6 D7 D8 6B 04 2C 04 05 3D 19 01)
  1519.    #\META-HYPER-G :CONTROL (:HIDE 6.) 6. M-H-DOC BIND-KEY
  1520.   )
  1521. #Y(#:TOP-LEVEL-FORM-151-22 #18Y(00 00 00 00 00 01 D5 D6 D7 D8 6B 04 2C 04 05 3D 19 01)
  1522.    #\META-HYPER-H :CONTROL (:HIDE 7.) 7. M-H-DOC BIND-KEY
  1523.   )
  1524. #Y(#:TOP-LEVEL-FORM-151-23 #18Y(00 00 00 00 00 01 D5 D6 D7 D8 6B 04 2C 04 05 3D 19 01)
  1525.    #\META-HYPER-I :CONTROL (:HIDE 8.) 8. M-H-DOC BIND-KEY
  1526.   )
  1527. #Y(#:TOP-LEVEL-FORM-151-24 #18Y(00 00 00 00 00 01 D5 D6 D7 D8 6B 04 2C 04 05 3D 19 01)
  1528.    #\META-HYPER-J :CONTROL (:HIDE 9.) 9. M-H-DOC BIND-KEY
  1529.   )
  1530. #Y(#:TOP-LEVEL-FORM-151-25 #16Y(00 00 00 00 00 01 D5 D6 D7 D8 2C 04 04 3D 19 01) #\META-Q :CONTROL
  1531.    (:DELETE) "delete current window" BIND-KEY
  1532.   )
  1533. #Y(#:TOP-LEVEL-FORM-151-26 #16Y(00 00 00 00 00 01 D5 D6 D7 D8 2C 04 04 3D 19 01) #\META-X :CONTROL
  1534.    (:LOAD) "load file" BIND-KEY
  1535.   )
  1536. #Y(#:TOP-LEVEL-FORM-151-27 #16Y(00 00 00 00 00 01 D5 D6 D7 D8 2C 04 04 3D 19 01) #\META-S :CONTROL
  1537.    (:SAVE) "store to file" BIND-KEY
  1538.   )
  1539. #Y(#:TOP-LEVEL-FORM-151-28 #16Y(00 00 00 00 00 01 D5 D6 D7 D8 2C 04 04 3D 19 01) #\META-W :CONTROL
  1540.    (:SAVE-AS) "store to new file" BIND-KEY
  1541.   )
  1542. #Y(#:TOP-LEVEL-FORM-151-29 #16Y(00 00 00 00 00 01 D5 D6 D7 D8 2C 04 04 3D 19 01) #\Escape :CONTROL
  1543.    (:LEAVE) "quit editor" BIND-KEY
  1544.   )
  1545. #Y(#:TOP-LEVEL-FORM-151-30 #16Y(00 00 00 00 00 01 D5 D6 95 02 2C 03 03 3D 19 01) :STRING-CHAR
  1546.    :WRITABLE INSERT-CHAR BIND-KEY
  1547.   )
  1548. #Y(#:TOP-LEVEL-FORM-151-31
  1549.    #57Y(00 00 00 00 00 01 D5 5F 1A 26 83 01 00 00 2A 01 7B 01 00 00 14 D6 60 6D 31 64 01 00 D7 60
  1550.         6D 31 A8 A8 77 02 D8 AB 69 04 01 2C 03 05 16 03 7F 01 A8 89 92 56 16 02 3D 19 01
  1551.        )
  1552.    (#\( #\) #\+ #\- #\* #\/ #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9 #\. #\,) :HYPER :SUPER
  1553.    :WRITABLE
  1554.    #Y(#:TOP-LEVEL-FORM-151-31-1 #14Y(01 00 00 00 00 02 A8 65 00 01 2F 01 19 02) NIL INSERT-CHAR)
  1555.    BIND-KEY
  1556.   )
  1557. #Y(#:TOP-LEVEL-FORM-151-32-1 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\HYPER-K :WRITABLE
  1558.    #Y(#:TOP-LEVEL-FORM-151-32-1-1 #12Y(01 00 00 00 00 02 A8 D5 2F 01 19 02) #\( INSERT-CHAR)
  1559.    BIND-KEY
  1560.   )
  1561. #Y(#:TOP-LEVEL-FORM-151-32-2 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\HYPER-L :WRITABLE
  1562.    #Y(#:TOP-LEVEL-FORM-151-32-2-1 #12Y(01 00 00 00 00 02 A8 D5 2F 01 19 02) #\) INSERT-CHAR)
  1563.    BIND-KEY
  1564.   )
  1565. #Y(#:TOP-LEVEL-FORM-151-33 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\HYPER-\ :MULTILINE
  1566.    CURSOR-UP BIND-KEY
  1567.   )
  1568. #Y(#:TOP-LEVEL-FORM-151-34 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\HYPER-\ :MULTILINE
  1569.    CURSOR-DOWN BIND-KEY
  1570.   )
  1571. #Y(#:TOP-LEVEL-FORM-151-35 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\HYPER-\ :ALL
  1572.    CURSOR-LEFT BIND-KEY
  1573.   )
  1574. #Y(#:TOP-LEVEL-FORM-151-36 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\HYPER-\ :ALL
  1575.    CURSOR-RIGHT BIND-KEY
  1576.   )
  1577. #Y(#:TOP-LEVEL-FORM-151-37-1 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\CONTROL-HYPER-\
  1578.    :MULTILINE LINE-UP BIND-KEY
  1579.   )
  1580. #Y(#:TOP-LEVEL-FORM-151-37-2 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\CONTROL-HYPER-\
  1581.    :MULTILINE LINE-DOWN BIND-KEY
  1582.   )
  1583. #Y(#:TOP-LEVEL-FORM-151-37-3 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\HYPER-\
  1584.    :MULTILINE PAGE-UP BIND-KEY
  1585.   )
  1586. #Y(#:TOP-LEVEL-FORM-151-37-4 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\HYPER-\
  1587.    :MULTILINE PAGE-DOWN BIND-KEY
  1588.   )
  1589. #Y(#:TOP-LEVEL-FORM-151-37-5 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\HYPER-\ :ALL
  1590.    CURSOR-TO-START-OF-LINE BIND-KEY
  1591.   )
  1592. #Y(#:TOP-LEVEL-FORM-151-37-6 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\HYPER-\ :ALL
  1593.    CURSOR-TO-END-OF-LINE BIND-KEY
  1594.   )
  1595. #Y(#:TOP-LEVEL-FORM-151-38 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\CONTROL-P
  1596.    :MULTILINE CURSOR-UP BIND-KEY
  1597.   )
  1598. #Y(#:TOP-LEVEL-FORM-151-39 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\CONTROL-N
  1599.    :MULTILINE CURSOR-DOWN BIND-KEY
  1600.   )
  1601. #Y(#:TOP-LEVEL-FORM-151-40 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\CONTROL-S :ALL
  1602.    CURSOR-LEFT BIND-KEY
  1603.   )
  1604. #Y(#:TOP-LEVEL-FORM-151-41 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\CONTROL-D :ALL
  1605.    CURSOR-RIGHT BIND-KEY
  1606.   )
  1607. #Y(#:TOP-LEVEL-FORM-151-42-1 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\CONTROL-HYPER-\
  1608.    :MULTILINE CURSOR-TO-START-OF-TEXT BIND-KEY
  1609.   )
  1610. #Y(#:TOP-LEVEL-FORM-151-42-2 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\CONTROL-HYPER-\
  1611.    :MULTILINE CURSOR-TO-END-OF-TEXT BIND-KEY
  1612.   )
  1613. #Y(#:TOP-LEVEL-FORM-151-43 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\CONTROL-B :ALL
  1614.    SET-BLOCK-START BIND-KEY
  1615.   )
  1616. #Y(#:TOP-LEVEL-FORM-151-44 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\CONTROL-K :ALL
  1617.    SET-BLOCK-END BIND-KEY
  1618.   )
  1619. #Y(#:TOP-LEVEL-FORM-151-45 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\META-B :ALL
  1620.    CURSOR-TO-START-OF-BLOCK BIND-KEY
  1621.   )
  1622. #Y(#:TOP-LEVEL-FORM-151-46 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\META-K :ALL
  1623.    CURSOR-TO-END-OF-BLOCK BIND-KEY
  1624.   )
  1625. #Y(#:TOP-LEVEL-FORM-151-47 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\CONTROL-H :ALL
  1626.    HIDE-BLOCK BIND-KEY
  1627.   )
  1628. #Y(#:TOP-LEVEL-FORM-151-48 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01)
  1629.    (#\Return #\HYPER-Return) :AND-WRITABLE-MULTILINE INSERT-LINE BIND-KEY
  1630.   )
  1631. #Y(#:TOP-LEVEL-FORM-151-49 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01)
  1632.    (#\Return #\HYPER-Return) :AND-WRITABLE-NOT-MULTILINE FINISH BIND-KEY
  1633.   )
  1634. #Y(#:TOP-LEVEL-FORM-151-50 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\CONTROL-Y
  1635.    :AND-WRITABLE-MULTILINE DELETE-LINE BIND-KEY
  1636.   )
  1637. #Y(#:TOP-LEVEL-FORM-151-51 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\CONTROL-J
  1638.    :AND-WRITABLE-MULTILINE COMBINE-LINES BIND-KEY
  1639.   )
  1640. #Y(#:TOP-LEVEL-FORM-151-52 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\HYPER-Rubout
  1641.    :WRITABLE DELETE-CHAR BIND-KEY
  1642.   )
  1643. #Y(#:TOP-LEVEL-FORM-151-53-1 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01)
  1644.    #\CONTROL-HYPER-Rubout :AND-WRITABLE-MULTILINE DELETE-CHAR-1 BIND-KEY
  1645.   )
  1646. #Y(#:TOP-LEVEL-FORM-151-53-2 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01)
  1647.    #\CONTROL-HYPER-Rubout :AND-WRITABLE-NOT-MULTILINE DELETE-CHAR BIND-KEY
  1648.   )
  1649. #Y(#:TOP-LEVEL-FORM-151-54 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\Backspace :WRITABLE
  1650.    BACKSPACE BIND-KEY
  1651.   )
  1652. #Y(#:TOP-LEVEL-FORM-151-55-1 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\CONTROL-Backspace
  1653.    :AND-WRITABLE-MULTILINE BACKSPACE-1 BIND-KEY
  1654.   )
  1655. #Y(#:TOP-LEVEL-FORM-151-55-2 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\CONTROL-Backspace
  1656.    :AND-WRITABLE-NOT-MULTILINE BACKSPACE BIND-KEY
  1657.   )
  1658. #Y(#:TOP-LEVEL-FORM-151-56 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\CONTROL-HYPER-\
  1659.    :ALL MARK-NEXT-OBJECT BIND-KEY
  1660.   )
  1661. #Y(#:TOP-LEVEL-FORM-151-57 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01)
  1662.    #\CONTROL-HYPER-Return :ALL MARK-TOPLEVEL-FORM BIND-KEY
  1663.   )
  1664. #Y(#:TOP-LEVEL-FORM-151-58 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01)
  1665.    (#\CONTROL-Return #\CONTROL-HYPER-Return) :AND-WRITABLE-MULTILINE EVAL-TOPLEVEL-FORM BIND-KEY
  1666.   )
  1667. #Y(#:TOP-LEVEL-FORM-151-59 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\CONTROL-X :WRITABLE
  1668.    DELETE-BLOCK-BUFFER BIND-KEY
  1669.   )
  1670. #Y(#:TOP-LEVEL-FORM-151-60 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\CONTROL-C :ALL
  1671.    COPY-BLOCK-BUFFER BIND-KEY
  1672.   )
  1673. #Y(#:TOP-LEVEL-FORM-151-61 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\CONTROL-V :WRITABLE
  1674.    PASTE-BUFFER BIND-KEY
  1675.   )
  1676. #Y(#:TOP-LEVEL-FORM-151-62 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\Tab :WRITABLE
  1677.    NEXT-INDENT BIND-KEY
  1678.   )
  1679. #Y(#:TOP-LEVEL-FORM-151-63 #20Y(00 00 00 00 00 01 D5 D6 D7 6B 03 D7 6B 04 2C 04 05 3D 19 01)
  1680.    #\CONTROL-0 :ALL 0. SET-MARK-FN SET-MARK-DOC BIND-KEY
  1681.   )
  1682. #Y(#:TOP-LEVEL-FORM-151-64 #20Y(00 00 00 00 00 01 D5 D6 D7 6B 03 D7 6B 04 2C 04 05 3D 19 01)
  1683.    #\CONTROL-1 :ALL 1. SET-MARK-FN SET-MARK-DOC BIND-KEY
  1684.   )
  1685. #Y(#:TOP-LEVEL-FORM-151-65 #20Y(00 00 00 00 00 01 D5 D6 D7 6B 03 D7 6B 04 2C 04 05 3D 19 01)
  1686.    #\CONTROL-2 :ALL 2. SET-MARK-FN SET-MARK-DOC BIND-KEY
  1687.   )
  1688. #Y(#:TOP-LEVEL-FORM-151-66 #20Y(00 00 00 00 00 01 D5 D6 D7 6B 03 D7 6B 04 2C 04 05 3D 19 01)
  1689.    #\CONTROL-3 :ALL 3. SET-MARK-FN SET-MARK-DOC BIND-KEY
  1690.   )
  1691. #Y(#:TOP-LEVEL-FORM-151-67 #20Y(00 00 00 00 00 01 D5 D6 D7 6B 03 D7 6B 04 2C 04 05 3D 19 01)
  1692.    #\CONTROL-4 :ALL 4. SET-MARK-FN SET-MARK-DOC BIND-KEY
  1693.   )
  1694. #Y(#:TOP-LEVEL-FORM-151-68 #20Y(00 00 00 00 00 01 D5 D6 D7 6B 03 D7 6B 04 2C 04 05 3D 19 01)
  1695.    #\CONTROL-5 :ALL 5. SET-MARK-FN SET-MARK-DOC BIND-KEY
  1696.   )
  1697. #Y(#:TOP-LEVEL-FORM-151-69 #20Y(00 00 00 00 00 01 D5 D6 D7 6B 03 D7 6B 04 2C 04 05 3D 19 01)
  1698.    #\CONTROL-6 :ALL 6. SET-MARK-FN SET-MARK-DOC BIND-KEY
  1699.   )
  1700. #Y(#:TOP-LEVEL-FORM-151-70 #20Y(00 00 00 00 00 01 D5 D6 D7 6B 03 D7 6B 04 2C 04 05 3D 19 01)
  1701.    #\CONTROL-7 :ALL 7. SET-MARK-FN SET-MARK-DOC BIND-KEY
  1702.   )
  1703. #Y(#:TOP-LEVEL-FORM-151-71 #20Y(00 00 00 00 00 01 D5 D6 D7 6B 03 D7 6B 04 2C 04 05 3D 19 01)
  1704.    #\CONTROL-8 :ALL 8. SET-MARK-FN SET-MARK-DOC BIND-KEY
  1705.   )
  1706. #Y(#:TOP-LEVEL-FORM-151-72 #20Y(00 00 00 00 00 01 D5 D6 D7 6B 03 D7 6B 04 2C 04 05 3D 19 01)
  1707.    #\CONTROL-9 :ALL 9. SET-MARK-FN SET-MARK-DOC BIND-KEY
  1708.   )
  1709. #Y(#:TOP-LEVEL-FORM-151-73 #20Y(00 00 00 00 00 01 D5 D6 D7 6B 03 D7 6B 04 2C 04 05 3D 19 01)
  1710.    #\META-0 :ALL 0. CURSOR-TO-MARK-FN CURSOR-TO-MARK-DOC BIND-KEY
  1711.   )
  1712. #Y(#:TOP-LEVEL-FORM-151-74 #20Y(00 00 00 00 00 01 D5 D6 D7 6B 03 D7 6B 04 2C 04 05 3D 19 01)
  1713.    #\META-1 :ALL 1. CURSOR-TO-MARK-FN CURSOR-TO-MARK-DOC BIND-KEY
  1714.   )
  1715. #Y(#:TOP-LEVEL-FORM-151-75 #20Y(00 00 00 00 00 01 D5 D6 D7 6B 03 D7 6B 04 2C 04 05 3D 19 01)
  1716.    #\META-2 :ALL 2. CURSOR-TO-MARK-FN CURSOR-TO-MARK-DOC BIND-KEY
  1717.   )
  1718. #Y(#:TOP-LEVEL-FORM-151-76 #20Y(00 00 00 00 00 01 D5 D6 D7 6B 03 D7 6B 04 2C 04 05 3D 19 01)
  1719.    #\META-3 :ALL 3. CURSOR-TO-MARK-FN CURSOR-TO-MARK-DOC BIND-KEY
  1720.   )
  1721. #Y(#:TOP-LEVEL-FORM-151-77 #20Y(00 00 00 00 00 01 D5 D6 D7 6B 03 D7 6B 04 2C 04 05 3D 19 01)
  1722.    #\META-4 :ALL 4. CURSOR-TO-MARK-FN CURSOR-TO-MARK-DOC BIND-KEY
  1723.   )
  1724. #Y(#:TOP-LEVEL-FORM-151-78 #20Y(00 00 00 00 00 01 D5 D6 D7 6B 03 D7 6B 04 2C 04 05 3D 19 01)
  1725.    #\META-5 :ALL 5. CURSOR-TO-MARK-FN CURSOR-TO-MARK-DOC BIND-KEY
  1726.   )
  1727. #Y(#:TOP-LEVEL-FORM-151-79 #20Y(00 00 00 00 00 01 D5 D6 D7 6B 03 D7 6B 04 2C 04 05 3D 19 01)
  1728.    #\META-6 :ALL 6. CURSOR-TO-MARK-FN CURSOR-TO-MARK-DOC BIND-KEY
  1729.   )
  1730. #Y(#:TOP-LEVEL-FORM-151-80 #20Y(00 00 00 00 00 01 D5 D6 D7 6B 03 D7 6B 04 2C 04 05 3D 19 01)
  1731.    #\META-7 :ALL 7. CURSOR-TO-MARK-FN CURSOR-TO-MARK-DOC BIND-KEY
  1732.   )
  1733. #Y(#:TOP-LEVEL-FORM-151-81 #20Y(00 00 00 00 00 01 D5 D6 D7 6B 03 D7 6B 04 2C 04 05 3D 19 01)
  1734.    #\META-8 :ALL 8. CURSOR-TO-MARK-FN CURSOR-TO-MARK-DOC BIND-KEY
  1735.   )
  1736. #Y(#:TOP-LEVEL-FORM-151-82 #20Y(00 00 00 00 00 01 D5 D6 D7 6B 03 D7 6B 04 2C 04 05 3D 19 01)
  1737.    #\META-9 :ALL 9. CURSOR-TO-MARK-FN CURSOR-TO-MARK-DOC BIND-KEY
  1738.   )
  1739. #Y(#:TOP-LEVEL-FORM-151-83-1 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\META-HYPER-\
  1740.    :WRITABLE CLEAR-START-OF-LINE BIND-KEY
  1741.   )
  1742. #Y(#:TOP-LEVEL-FORM-151-83-2 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\META-HYPER-\
  1743.    :WRITABLE CLEAR-END-OF-LINE BIND-KEY
  1744.   )
  1745. #Y(#:TOP-LEVEL-FORM-151-84 #15Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 3D 19 01) #\META-L :MULTILINE
  1746.    SEARCH-FIRST BIND-KEY
  1747.   )
  1748. #Y(#:TOP-LEVEL-FORM-151-85 #14Y(00 00 00 00 00 01 D5 D6 D7 2C 03 03 19 01) #\CONTROL-L :MULTILINE
  1749.    SEARCH-NEXT BIND-KEY
  1750.   )
  1751. #Y(#:TOP-LEVEL-FORM-152 #16Y(00 00 00 00 00 01 D5 30 5B D6 60 30 53 C1 19 01) (SPECIAL *USE-ED*)
  1752.    *USE-ED*
  1753.   )
  1754. #Y(#:TOP-LEVEL-FORM-153 #11Y(00 00 00 00 00 01 D5 30 55 19 01) ED)
  1755. #Y(#:TOP-LEVEL-FORM-154 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) ED
  1756.    SYSTEM::REMOVE-OLD-DEFINITIONS
  1757.    #Y(ED
  1758.       #301Y(00 00 01 00 00 07 3C 01 01 04 8F 05 17 AC 8A 17 05 AC 8B 04 80 DE 0E 00 1B 11 9D 14 2E
  1759.             03 19 06 2D 01 19 06 0E 00 1B 78 C2 1A 70 D9 AD 6D F1 77 02 2E 01 19 06 AC 8B 19 80 EF
  1760.             AC DB 7D 27 03 14 85 05 80 E5 1A 80 B4 E3 AB 67 0F AA AC 37 0B 7A 06 F7 6D 85 77 05 2E
  1761.             01 1A 80 96 A8 DE 6E 27 A9 DF 6E 27 AA E0 6E 27 AB E1 6E 27 AC E2 6E 27 6F 05 00 0E 00
  1762.             1B 51 2D 10 14 A7 E6 37 03 6D F6 50 1B AC AA 30 83 A9 30 8B A9 30 8B 8F 02 05 14 37 01
  1763.             31 6F 3D 51 05 00 00 1C 0B 1A 05 05 00 00 1C 04 14 60 31 6F 52 16 01 A7 2E 03 A7 E7 37
  1764.             03 6D F6 50 32 0E 0F 10 0F 1A 0C A7 01 02 B2 6D 5D 37 01 30 82 16 01 AC 5F E8 37 01 6D
  1765.             74 A7 E8 89 FE 68 16 01 11 8F 02 05 14 37 01 31 6F 3D 51 05 00 00 1C 0B 1A 05 05 00 00
  1766.             1C 04 14 60 31 6F 52 16 02 9C 19 07 AC 85 05 FF 3C 9D F9 AA 2E 07 F8 14 89 51 26 A9 7C
  1767.             58 01 1B 05 9A 59 F7 1C 1B A8 8B 19 17 A8 8A 06 13 AC 84 05 05 A8 AD 89 FE 0A A9 DD 37
  1768.             01 7D 76 00 1B FF 32 E9 AD 5E 01
  1769.            )
  1770.       *USE-ED* EDIT "" EDIT-FILE :LOAD SYSTEM::FUNCTION-NAME-P 0. SYSTEM::GET-FUNNAME-SYMBOL
  1771.       SYSTEM::DEFINITION 4. 5. 6. 7. 8. :FORM *PACKAGE* EDITOR-TEMPFILE :OUTPUT :INPUT "EOF"
  1772.       "~S cannot be edited."
  1773.   )  )